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Description 



1, Aost'act 

ThTs Program cheeks bank selection EA bits, and memory 
using any NPR devlee with EA bits', It runs stand alone or 
with KTlic or KT11D to aecess extended memory, Worst ease 
noTse patterns are used with the NPR dev| e to ttst the 

2\ Reau I fements 

2.1 Equipment 

PQPll standard computer with a minimum of 8K of memory 
KTilC/O ?or memory expansion (optional) 

2.2 Storage 

Program Storage • the routines use memory - 17776 

2.3 Pre I Inlnary programs 

Memory dlaSnostles 
Devlee diagnostics 

3'« loading procedure 

Use standard procedure for ABS tapes', 

4', Starting Procedure 

4',1 Control switch settings 

Sea 5,1,1 Ul'l down for worst case testing) 

4.2 Starting address 
Start at 2(70', 

4.3 Progfa*! and/or operator action 

1) Start at 2*30 

2) Type device {RFlli RKUi RP11, RC11, Tcili TMli, DM11, or 
2R11B) ano RETURN, 

3j^est w]l| start (»C will return to step 2 and restoc^She 



*M *JDEOU«0?QMA-A Memory Exer e 1 Ser p AGE 4 

G tser f ptlon 

loader) 
o r 

1) Start at 225? 

2) Tyoe a RETURN 

3) Type the lower bank to be tested '. . , 1*20000-37777 ate', 
4} Type the updsp bank to b§ tested 

5) Tyoe devlee (RFil, RKlli RPll, RC11. TCU» TMlli DMil, of 
DR119) and RETURN. 

*) Test w| I | start (*C w||! return to step 2 and restgre the 
l oad«r ) 



5, Oceratlng orboedure 



5",i Operational switch settings 

At S* 200 , , all switches dow n Ts worst ease test I nfl • The 
bell will ring upon completion o? a pass, 



S'.l.l SwTteh settings arel 

SW«l5> « 1 HALT ON ERROR 

SW<1«> « 1 HANG ON CURRENT BANK 

SW<13> i i INHIBIT PRINTOUT 

SW<10> i 1 INHIBIT BEL!, ON PASS COMPLETE 

SW<09> * 1 , t INHIBIT USE OF MEMORY EXPANSION DEVICE 

Stf<08> * x TRACE BANK UNDER TEST 



5,2 SUBROUTINE ABSTRACTS 



5,2,1 TRAPCATQHER 

a ",+2" » "HALT" sequence Is repeated from - 776 te eatch 
any unexpected traps, Thus any unexpected traps or 
Interacts will HALT at the vector + 2, 



5,2,2 t p g d Handler 

Most of the subroutine calls- are done via a TRAP+n ca|!, To 
fMd the subroutine belno called, look !n the comment 
section of the trao deflation table for the name of the 
trapi then scan to the left margin for the starting address 
of the subroutine, 
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6,1 



Errors 

Error printout 

The format Is as follows! 

RFil ERROR I CS » 100305 



ER s 001000 



Til ■ Devlea under test 

CS = Control and status register 

ER * Error register 

DATA ERROR AT 401220 TRUE * 177777 RECEIVED p 177797 

40ii20 s Address of bad data (18 bit) 

TRUE * Data sent 

RECEIVED s Data feund 



6,2 



Error reeovery 
Restart at 200 



7, 



Restr I ctTons 
N ne 



8, 

8,1 



M J sc® I I aneous 



Execution time 



The executatlon time Is dependant on the amount of memory 
and the devjse used, The be|| Should r|ag within 20 minutes 
(using DM11 at 113 BAUD In 124K, ) 



8,2 



Stac* Pointer 

StacK Is ! n 1 ta I I y set to 5F0 



8,3 



p ower FaT I 

After the program Is started, power 
snoulo oe *o error typeoutsi 



down tn$n up. 



There 
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9, Program Qescp lotion 

The Progpan sizes cope and test saouent ! a | | y a|| cope or any 
section of eore In 4K chunKs gsfng the devise specified and 
memory expansion devTce, Wopst ease noise patterns ape used 
for each memory tyee on eaeh pass, 
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.TjTLE MAINDEC-u-DHQMA-A MEMORY EXERCISER 

i Rem* 

Abstract 

This program cheeks ba*k selection* EA b T t s # and memory uslns 
any NPR devjee wTth EA bits', It runs stand alone or with 
KT11C or KT11D te access extended memory', Worst case noise 
patterns are used with the NPR device to test the memory', 



Requ 1 r ements 

PDP-11 with at least 8K of memory (KTliC or kTlio are 
oot 1 ona I , ) 

Storage ■ First 4K 
Loading * Absolute Loader 



Execution time 

The time Is dependent bn the amount of memory and the device 
which Is used, A bell will signify end of pass", Maximum run 
time Is no greater than 5 minutes, 



Starting procedure 

1> Start at 200 

2) Type devjee (RF11, RKll, RPili RC11, TC11, TMil, D^ll, or 
DRUB) and RETURN, 

3> Test w f t ! start C»C will return to step 2 and restore the 
I oader > 
or 

1) Start at 200 

2) Type a RETURN 

3) Type the lower bank to be tested ',, la 20000-37777 etc, 

4) Type the upper bank to be tested 

5) Type device {RF11, "Kil, RPlli RC11, TC11, TMil, DM1, or 
DRUB) and RETURN , 

6) Test will start (*C wT | I return to step 2 and restore the 
loader) 



Switch register options • yes 

SW15 - HALT ON ERROR 

SW14 * LOOP ON CURRENT BANK 

SW13 - INHIBIT TYPEOUT? 

SW10 - INHIBIT 8SLL 

SW09 . INHIBIT USE OF MEMQRY EKPANTJON DEVICE 

SW08 - TYPE BANK UNDER ?FST# 
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56 








57 








58 








59 




000000 




60 








61 




000000 




62 




000001 




63 




000002 




64 




000003 




65 




000004 




66 




000005 




67 




000005 




68 




000006 




69 




000007 




70 




177570 




71 




177570 




72 




000004 




73 




000007 




74 




000000 




75 




040000 




76 




020000 




77 




010000 




78 




004000 




79 




002000 




80 




001000 




81 




000400 




82 








83 








84 




000200 




85 








86 


000200 


000167 


001012 


87 








88 




01000 




89 








90 


001000 


000000 




91 


001002 


000000 




92 


001004 


000000 




93 


001006 


000000 




94 








95 


001010 


300204 


000206 


96 


001014 


000210 


000212 


97 


001020 


000254 


000256 


98 


001024 


000220 


000222 


99 


001030 


000214 


000216 


100 


001034 


000124 


000126 


101 


001040 


000224 


000226 


102 


001044 


000330 


000332 


103 


001050 


000250 


000252 
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ICOPYRIGHT 1972 # 3IGITAL EQUIPMENT toop',, MAYMARD MASS, 
{PROGRAM BY BOB 3RAJN 
, ENABL A8S 

,= ? iT»AP CATCHER • 776 



R0a 


X0 


Rl» 


XI 


R2* 


X2 


R3b 


X3 


R4* 


S4 


R5s 


X5 


TTY* 


%5 


SPa 


X6 


PC* 


X7 


SWR« 


177570 


DISPLAYsSWR 


TYPE" 


IOT 


BELL" 


7 


Ns 





SW14« 


40000 


SW13« 


20000 


SW12P 


10000 


swiia 


4000 


SW10B 


2000 


SW09f 


1000 


SW08* 


401* 



200 
JMP 
1000 



GOT 



MXI 







MINI 


? 




LIMIT! 







OPTION! 







RFTRAPl 


204, 


206 


RCTRAPl 


210, 


212 


RPTRAPl 


254, 


256 


RKfRAPl 


220, 


222 


TCf RAP if 


214, 


216 


DRTRAPI 


124, 


126 


TMfRAPl 


224, 


226 


DMRVECI 


330, 


332 


SEGVECI 


250, 


252 



ibank under 

I FIRST BANK 
I'LAST BANK 
I OPT 10^ - MI 



TEST 



s MXli - GT » KUi 



1! 
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104 


001054 


177460 


RFCS ? 


j n j < fli 

1774621 


105 


001056 


177470 


RFER 1 


177470 


106 


001060 


177462 


RFWC l 


177462 


107 


001062 


177464 


RFC A 1 


177464 


108 


001064 


177466 


RFDA 1 


177466 


109 


001066 


177446 


RCCS 1 


177446 


110 


001070 


177444 


RCERI 


177444 


111 


001072 


177450 


RCWCI 


177450 


112 


001074 


177452 


RCCAI 


177452 


113 


001076 


177442 


RCDAI 


177442 


114 


001100 


176714 


RPCSl 


176714 


115 


001102 


176716 


RPWCI 


176716 


116 


001104 


176720 


RPCA 1 


176720 


117 


001106 


176724 


RPDAI 


176724 


118 


001110 


176712 


RPERI 


176712 


119 


001112 


176710 


RPDS I 


176710 


120 


001114 


177404 


RKCSI 


177404 


121 


001116 


177402 


RKER I 


177402 


122 


001120 


177406 


RKWC 1 


177406 


123 


001122 


177410 


RKCA 1 


j m <y a a ft 

177410 


124 


001124 


177412 


RKDA 1 


177412 


125 


001126 


177342 


TCCS { 


177342 


126 


001130 


177340 


TCER I 


177340 


127 


001132 


177344 


TCWCI 


177344 


128 


001134 


177346 


TCCAI 


177346 


129 


001136 


177350 


TCDBI 


177350 


130 


001140 


172522 


TMCSl 


172522 


131 


001142 


172520 


TMERl 


172520 


132 


001144 


172524 


THBCI 


172524 


133 


001146 


172526 


TfiCA 1 


172526 


134 


001150 


175000 


DMCS 1 


175000 


135 


001152 


175002 


DMACTl 


175002 


136 


001154 


175004 


DMBRK 1 


175004 


137 


001156 


175006 


DMADR i 


175006 


138 


001160 


172410 


DRWCI 


172410 


139 


001162 


172412 


DRCAI 


172412 


140 


001164 


172414 


DRCS 1 


172414 


141 


001166 




DRER I 




142 


001166 


172416 


DRDB 1 


172416 


143 


001170 


177572 


SR0I 


177572 


144 


001172 


172340 


KISAR0I 


172340 


145 


001174 


172300 


KISDR0I 


172300 


146 


001176 


172354 


K I SAR6 1 


1 7 CdO** 


147 


001200 


172314 


KISDR6I 


172314 


148 


001202 


172356 


KISAR7I 


172356 


149 


001204 


172316 


K I SDR7 \ 


172316 


150 


001206 


177604 


MXC3J 


177604 


151 










152 


001210 


140000 


LOLIMI 


140000 


153 


001212 


160000 


HILIMI 


160000 


154 


001214 


170030 


WRDCNTj 


-10000 
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I'RFU DISK ( 256K) 



j'RCll DISK (64K) 



j'RPli DISK (PACK) 



i'RKU DISK (CARTRIDGE) 



I'TCll DECTAPE 



iTMll MAGTAPE 



j'DMli ASYNCRONOUS MODEM 



10*11 



IKT11 • MEMORY MANAGEMENT 



I'MXll 



I B F G J N M I N G OP BANK 
lE^D 0^ BANK 
jWORO COUNT 
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OZQMAA'.Pll 


SETU p i 


CORE, AND 


OPT I ON 


SCAN 




1 J 3 


7 01 1 5 1 A 

C X & 1 O 


200005 






GOT i 


RESET 


X 3 Q 


PHI 3301 


0127?6 


000500 






m.Q V 


1 R 7 


?■ 01 1 :> 9 4 
t- » 1 ft c ^ 


£12767 


011652 


176566 




MQV 


1 3 


£ C X C J C 


?12767 


000340 


176562 




MOV 




PI 511 340I 


012767 


012244 


176556 




MQV 




f K 1 9 4 A 
" C 1 2 1 


012767 


000340 


176552 




MOV 


1 A 1 
101 


V V X H 


012767 


002602 


176552 




MOV 






212767 


000340 


176546 




MOV 


10 


10 10 1 1 ' 10 


012777 


004070 


177512 




MOV 


1 A A 


13 O 1 2 7 


012777 


000240 


177506 




MOV 


i IE 

103 




012777 


004452 


177502 




MOV 


1 A A 

loo 




012777 


000240 


177476 




MOV 


16/ 




012777 


005162 


177472 




MOV 


100 


01 a 1 9 A 
£ W X i3 6 


012777 


000240 


177466 




MOV 


i o y 


>s lo x o o '» 


012777 


005462 


177462 




MOV 


1 / t> 


POM T49 

ic So i <3 ^ t 


012777 


000240 


177456 




MOV 


171 
1 ' 1 


0)011 7R0I 


012777 


006066 


177452 




MQV 


17 9 


c lo X J 3 


012777 


000300 


177446 




MQV 


I/O 


Ol Ol 1 1 A 4 
B 10 1 t 


012777 


006774 


177446 




MOV 


17 4 
1 / ** 


Ol 31 1 7 7 3 
«S X / C 


012777 


000240 


177442 




MOV 


< IE 


rO C X *» B C 


012777 


010352 


177426 




MOV 


1 7 A 

1/0 


01 01 1 A IH A 

o |3 l q o 


012777 


000240 


177422 




MOV 


17 7 

177 


01 01 4 A 4 A 

Eex 414 


012767 


012332 


176436 




MQV 


( IS 

1/0 


01 01 4 A 9 9 
I0i0l422 


012767 


140000 


177560 




MOV 


i t o 

17V 


oi oi 1 At at 


012767 


160000 


177554 




MOV 


130 


Ol a 1 a t A 


012767 


000001 


177336 




MOV 


191 


k3 1 4 4 4 


012767 


000000 


177326 




MOV 


4 O 

182 


0i31452 


005067 


002074 






CLP 


1ST 

16 J 


01 01 4 A R A 


005067 


177324 






CLR 


19 4 
10* 


01 01 4 A A 9 


032737 


001000 


177570 




BIT 


1 A R 
165 


01011 470I 
v B X S / 10 


001036 








BNE 


1 A A 

1 a 


C Ol 1 4 7 9 
c a 1 S / c 


012737 


001526 


000004 




MOV 


1 B7 


pi a 1 r ol oi 

& V X J 10 10 


005777 


177464 






TST 


1 A A 
10 


Ol Ol 1 RAi 
v lo X 3 B *f 


105167 


177276 






COMB 


1 B O 

18 V 


C 01 4 R 4 a 


012777 


002710 


177332 




MOV 


1 »le 


51 01 1 R 4 A 
£ I0 X 3 1 


012777 


000340 


177326 




MOV 


1 O 1 

1*1 


01 01 4 R 9 A 
«5 X 3 £ ^ 


000415 








BR 


1 O "3 

192 












MOV 


1 "I 


Ol Ol 1 R 9 A 
tJ 10 X 3 £ 


012737 


001560 


000004 


151 


1 Q<1 
1 * ^ 


01011 R^4 


005777 


177446 






TST 


4 Q R 

1*5 


51 01 4 R A 01 
£10134 


105167 


177243 






COMB 


1 Q A 

1 v o 


31 01 4 R A A 
l! 501344 


012767 


000004 


177230 




MOV 


1 7 
1 ▼ / 


^3(1 RR9 
* C X 3 3 £ 


012767 


000003 


177220 




MOV 


1 98 

A ~ O 


3 Ol 1 R A 


012737 


000006 


000004 


25 I 


MOV 


199 












T&T 


200 


001566 


005767 


177214 




S I ZE I T I 


201 


001572 


100417 








PMI 


202 


001574 


001037 








BNE 
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#500, SP 
#, !OT,20 
#340, 22 
#POWR, 24 
#340,26 
#,TRP,34 
#340,36 
#TRP,RF,i*RFTRAP 
#240,»RFTRAP+2 
#TRP,RC,PRCTRAP 
,G»RCTRAP + 2 
,RP,<!»RPTRAP 
,?RPTRAP+2 
( RK,5»RKTRAP 
#240,S&RKTRAP + 2 
#TRP, TC.GTCTRAP 
#300,»TcTRAP+2 
#TRP, TM, »TMTRAP 
#240,*TMTRAP+2 
#TRP,OR,»DRTRAP 
#240,PDRTRAP+2 
#RE ADR , 60 
#140000,LOL'IM 
#160000,HIL'IM 
#1,MIN 
#0, MX 
MEMORY 
OPTION 
#SW09,0#SWR 
SJHEIT 
#1$,»#4 
®SR0 
OPTION 

#segerr,»se:gvec 

#340,9SEGVEC+2 
2$ 

#2$,P#4 

&MXC3 

0PTI0N+1 

#4,MIN 

#3, MX 

#6,9#4 

OPTION 

OOMX 

DOSEG 



I'ZAP TWE WORLD 

I »SfACK AT 500» 

I TT y OUTPUT TRAP 

HOC* CUT WORLD 

jSET P*WER FAIL ADDRESS 

iSET U p TRAP ADDRESS 



I KEYBO ARD VECTOR 
IINIT L'OLIM 
J' I MIT MIL JM 



I'WHICH MEMORY BEING CHECKED 

I type the option 

1 INHIBIT USE OF MEMORY EXTENT I ON DEVICE 
ISKJP 

I SET FOR TIMEOUT 
jCHECK FOR KT11 
JOPTION IS KTH 



I SET FOR TIMEOUT 
ICMECK FOR MX11 
JOPTION IS MXH 



jRESET FOR NEM 

I'WWICH OPTION AM I 

/MUST w A VE MX11 

l'MUS T HAVE MEMORY MANAGEMENT 
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203 


001576 


?12737 


001630 


000004 


DOCORE I 


MOV 


#2$ , *#4 


204 


001604 


012701 


317776 








#17776, Rl 


205 


001610 


005020 








CL R 


R0 


206 


001612 


762731 


020000 




15 1 


ADD 


#200001 Rl 


207 


001616 


005200 








I NC 


R0 


208 


001620 


005711 








TST 


u> 


209 


001622 


022701 


177776 






CMP 


#177776, Rl 


210 


001626 


001371 








BNE 


IS 


211 


001630 


000446 






2$| 


BR 


TYPEIT 


212 














#23,?#4 


91 
<S 1 


01 01 1 A 1 9 

10 10 1 £ 


01 9 73 7 


(71 21 1 6 A 4 


000004 


DOMX I 


MOV 


214 


001640 


012700 


000003 






MOV 


#3|R0 


215 


001644 


005200 






is i 


INC 


R0 


216 


001646 


010077 


177334 






MOV 


R0i PMXC3 


217 


001652 


005737 


157776 






TST 


•#157776 


218 


001656 


022700 


000036 






CMP 


#36 | R0 


219 


001662 


001370 








8NE 


1$ 


220 


001664 


012777 


000006 


177314 


2S| 


MOV 


#6, 0MXC3 


221 


001672 


000425 








BR 


TYPE I T 


222 
223 


001674 


104446 






DOSEGI 


MAP I T 




224 


001676 


005277 


177266 






INC 


?>SR0 


9 9 5 


& 10 1 / S3 1 


CM 97T7 


5101 772 


(7! 2 4 

Itf w v V K.J i 




MOV 


#2$ » ®#4 


226 


001710 


005737 


157776 




IS | 


TST 


•#157776 


227 


00l7i4 


062777 


000200 


177254 




ADD 


#200i»KJSAR6 


228 


001722 


022777 


007600 


177246 




CMP 


#7600,8»KISAR6 


229 


001730 


003367 








BGT 


1$ 


230 


001732 


017700 


177240 




2Si 


MOV 


«KISAR6,R0 


231 


001736 


006300 








ASL 


R0 


232 


001740 


000300 








SWAB 


R0 


233 


001742 


042700 


177740 






B I C 


#177740, R0 


234 
235 


001746 


005300 






TYPEIT'I 


DEC 


R0 


236 


001750 


012737 


000006 


000004 




MOV 


#6 # *#4 


237 


001756 


012706 


000500 






MOV 


#500 » SP 


238 


001762 


005227 


177777 






I NC 


#•1 


239 


001766 


001022 








BNE 


REDO 


240 


001770 


004767 


007516 






JSR 


7, LODGET 


241 


001774 


000004 


011140 






TYPE 


,M14A 


242 


002000 


010005 








MOV 


R 1 T T Y 


243 


002002 


004767 


010044 






JSR 


PC|PR JN?S 


244 


002006 


000004 


011156 






TYPE 


f M14 


245 


002012 


005767 


176770 






TST 


OPTION 


246 


002016 


001406 








BEQ 


REDO 


247 


002020 


100403 








RMI 


IS 


248 


002022 


000004 


011464 






TYPE 


,WJTNSG 


249 


002026 


000402 








BR 


REDO 


250 


002030 


000004 


011477 




IS I 


TYPE 


, WJTWMX 


251 


002034 


010067 


176744 




REDO 1 


MOV 


R0 , L I M I T 


252 


002040 


004767 


007534 






JSR 


7,L0DRES 



j'STT FAR NEM 
i SET UP ADDRESS 
I SET UP BANK COUNT 
jMOVe TO NEXT SANK 
I I NC THE 3ANK COUNT 
I T I MEOUT? 
I'END? 

JlOOP IF NOT AT THE END 
j'TYPE IT 

I'SET U p P"0« NEM 
I SET BANK COUNT 
j'MOVF To NEXT BANK 
I SET UP MXC3 
l"Tf MEOUT? 
I END? 

lLOOP IF NOT END 
I MAP INTO SELF 
I TYPE It 

iSETUP MEMORY MANAGEMENT REGISTERS 

j TURN ON MEMORY MANAGEMENT 

I SET TIMEOUT ADDRESS FOR CORF CALCULATIONS 

j'TRAP ON NON EX MEM 

I CO TO NEXT BANK 

I LAST ONE? 

j TRY NEXT 

I'SAVF ASR6 IN R0 

j »ASH #-7|R0« 

JKLUDGY ISN'T IT 

I'CLEAR JUNK 

IDPOP BACK 

ISFT FOR MEM 

J CLEAR STACK *#500»* 

j'TYpr THE OPTION ONLY ONSE 

I FIRST TIME? 

j'GET THE LOADER ONLY THE FIRST TIME 

j'TYPF R0 IN OCTAL 

I AND SUPRESS LEADING ZEROES 

j TYPE "BANKS EXIST" 

j : WUICH OPTION? 

j NOTHING 

I'MXli 

IMEM5RY MANAGEMENT 

I SKIP 

f M V 1 1 

iSAVF. UPPER BANK 
I'RESTORE LOADER 



MM.NDEC-il-D?QMA*A MEMORY EXERCISER MACYll',614 8-ARR-72 08155 PAG? 6 
02QMAA', Pll TTY INPUT AREA 



253 


002044 


012737 


002534 


000004 


T0 I 


MOV 


#N0DEVi<?*4 


|SFT gP TRAP IF MO OEVICF 


254 


002052 


005037 


177776 






CL.R 


0#177776 


jD^O 3 PRIORITY 




255 


002056 


000004 


011204 






TYPE 


, M2 


lS w OWFUA»<E HIM 




256 


002062 


104430 








ACCEPT 




1 JVPUT DATA fRCM TTY 




257 


002064 


052737 


000100 


177560 


RTPF ! 


BIS 


#100#<P#177560 


> IF T HF T T V 




258 


002072 


022767 


041522 


010336 




CMP 


#»RCt INPUT 


I'CWECK FOR RC11 




259 


002100 


301004 








BNE 


Tl 


ITURN ON I NTERUPT 




260 


002102 


052777 


000100 


176756 




B I S 


#100i*«CCS 




261 

fc w X 


002110 


000503 








BR 


WAIT 


I'CWECK FOR RP11 




262 


002112 


022767 


050122 


010316 


Tl 1 


CMP 


#»RPi INPUT 




263 


002120 


001004 








BNE 


T2 


j'TURV ON INTERUPT 




264 


002122 


052777 


000100 


176750 




BIS 


#100,(?RPCS 




265 


002130 


000473 








8R 


WAIT 


I'CWECK FOR RF11 




266 


002132 


022767 


043122 


010276 


T2 1 


CMP 


#»RF, INPUT 




267 


002l 40 


001004 








8NE 


T3 


jTUR^ 1 ON INTERUPT 




268 


002142 


052777 


000100 


176704 




BIS 


#100,(?R'FCS 




269 


002150 


000463 








BR 


WAIT 


/CHECK FOR RKH 




270 


002152 


022767 


045522 


010256 


T3 | 


CMP 


#"RKi INPUT 




271 


002160 


001004 








BNE 


T4 


JTURV ON INTERUPT 




272 


002162 


052777 


000100 


176724 




BIS 


#100i»RKCS 




273 


002170 


000453 








BR 


WAIT 


ICHECK FOR TM11 




274 


002172 


022767 


046524 


010236 


T4 | 


CMP 


Uti'TMt INPUT 




375 


if K/ c 6 1> KJ 


001 004 








BNE 


T5 


j'TURN ON INTERUPT 




276 


002202 


052777 


000100 


176730 




BJS 


#100i»TMCS 




277 


002210 


000443 








8R 


WAIT 


ICWECK FOR TC11 




278 


002212 


022767 


041524 


010216 


T5| 


CMP 


#»TC» INPUT 




279 


002220 


001004 








BNE 


T6 


/TURN ON INTERUPT 




280 


002222 


052777 


000100 


176676 




SIS 


#100i»TCCS 




281 


002230 


000433 








BR 


WAIT 






282 


002232 


022767 


046504 


010176 


T6'| 


CMP 


#'«DMi JNpUT 


/CHECK FOR DM11 




283 


002240 


001007 








BNE 


T7 


it; tl THERE? 




284 


002242 


005777 


176702 






TST 


3DMCS 




285 


002246 


012737 


000006 


000004 




MOV 


*6,P#4 


/RESTORE 4 




286 


002254 


000167 


005074 






JMP 


TRP , DM 






287 


002260 

ICS 6- C« w v 


022767 


05H04 


010150 


T7 | 


CMP 


#»'DR, JNPUT 


/CHECK FOR DR11 




288 


002266 


001004 








BNE 


T8 


/TURN ON INTERUPT 




289 


002270 

f !u fa fa ' v 


052777 


000100 


176666 




BIS 


#100i*DRCS 




290 


002276 


000410 








9R 


WAIT 






291 


002300 


105767 


010132 




T8l 


TSTB 


INPUT 


i'c* alone: 




292 


002304 


001420 








8E9 


CRUF 






?93 

6 7 W 


0023916 

v U & W w 


7! 01 4 

!U V tl V K/ T 


010710 






TYPE 


,M1 






294 


002312 


005037 


177560 






CUR 


»#177560 


/IP T H E TTY 




295 


0231 6 


003652 








BR 


T0 






796 

£ 7 w 

297 


002320 


012737 


000006 


000004 


WAI T 1 


MOV 


#6,?#4 


I S T NEM T P A ,s 




298 


002326 


016704 


176656 




IS 1 


MOV 


UOU IM|R4 


ISPT UOW UIM'IT 


««»*«»«»«•**•• 


299 


002332 


026704 


176654 




25 1 


CMP 


HIUIM.R4 


1 E K - D OF RANGE 


* * 


300 


002336 


001773 








BEQ 


IS 


I YES » RESET 


• BACKGROUND * 


301 


002340 


000241 








cue 




1 CLEAR CARRY BIT 


• TEST • 


302 


002342 


005524 








ADC 


{4> + 


l NOP WITH READ/WRITE 


« » 


303 


002344 


000772 








BR 


2S 


JUOOP 


«»««»««*»«««*• 



HA!N0EC-11-3HQ M A.A MEMORY EXERCISER MACYU',614 S-.ApR»72 08153 
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PAGr 7 



304 


002346 


012737 


3 3 6 


003004 


CRLF 1 


MQV 


«6 i 3>#4 


305 


?3?354 


305037 


177560 






SLR 


**177560 


306 


»- 10 w o 10 


00003 4 


011 1?1 








,Mil 


307 


2 3 6 4 


104430 








ACCEPT 


M I N 


308 

w c.J w 


002366 

C ^ & w O W 


005067 


l764£0 








3 o 


002372 


012701 

A £ ' IP A 


012436 






MQV 


*JNPUT|R1 


w A 10 


002376 

it/ ** w / w 


103711 

Aw-'' A A 






CRi | 


TSTB 


U> 


31 1 

w A A 


0094010 

*J V £ ~ 1C 10 


01414 








SEQ 


CR2 


31 9 
o l c 


002402 

W 10 £ "t 10 £ 


1 06011 

A w u v A A 








RQRB 


(U 


31 3 
w x w 


002404 

lo 10 £ *t 10 "* 


1 06011 
A w w K> A A 








RORB 


(1) 




002406 

V iv C it? w 


1 06011 








RORB 


«D 


315 
w X J 


00241 

JU |C/ £. ~ ^ Jf 


106167 


176366 






ROLB 


M|N 


316 


00241 4 


106111 

A v w A A A 








R L B 


(!) 


31 7 


00241 6 


106167 
AW* ' 


176360 






ROLB 


M I N 


3 1 ft 

O A w 


002492 

10 10 £ "t £ £ 


1 06121 

X 10 O A £ A 








ROLB 


(1? + 


319 


002494 

10 £ *t £ "t 


1061 67 

A */ w A ° f 


176352 






ROLB 


M1N 


390 

w £ 10 


002430 

*J V t "t \J K< 


000762 








BR 


CRI 


321 


002432 


005767 


176344 




CR 2 I 


TST 


MJN 


392 

W £ & 


002436 


003743 








SLE 


CRLF 


393 
w £ w 


002440 

d Jy C "f t Jw 


016767 


176336 


176332 

J. r w v u 




MQV 


MIN,MX 


394 

W c ~ 


002446 


005367 


176326 






DEC 


MX 


325 
W £ «/ 


002452 


000004 


011117 




NXTCR ! 


TYPE 


iM12 


396 

W £ w 


002436 


104430 








ACCEPT 


R0 


327 


002460 


00502)0 

"W 1/ ✓ |/ M fcr 








CLR 


328 

w £ w 


002462 


012701 


012436 






MOV 


#INPUT|R1 


329 


002466 


105711 






CR3 ! 


TSTB 


(1) 


330 


002470 

1" 10 £ *T / 10 


00i 411 








BEQ 


CR4 


331 
w w A 


002472 

IO 10 £ *r f £ 


106011 

A f O If A A 


• 






RORB 


(1) 


332 

w w & 


002474 


106011 
A KS w E/ A A 








RORB 


<1 ) 


333 
www 


002476 


1 06011 
A v o 10 A A 








RORB 


(1) 


334 

w w ~ 


002500 


106100 
A w v A u 10 








ROLB 


R0 


335 


002502 


106111 








ROLB 


(1) 


336 
www 


002504 


106100 








ROLB 


R0 


337 

w w r 


002506 

f If ^ 3 10 w 


106121 

A V w A £ A 








ROLB 


C1J* 


338 

www 


002510 


106100 








ROLB 


R0 


339 


002512 


000765 








BR 


CR3 


340 


002514 


020067 


176264 




CR4 1 


CMP 


R0i LIMIT 


341 


002520 


003354 








BCT 


NXTCR 


342 


002522 


020067 


176294 






CMP 


R0iMIN 


343 


002526 


002707 








BLT 


CRLF 


344 


002530 


000167 


177310 






JMP 


T0 


345 
















346 


002534 


000004 


011135 




NOOEVI 


TYPE 


,M13 


347 


002540 


000004 


011135 






TYPE 


iM13 


348 


002544 


000004 


012436 






TYPE 


, INPUT 


349 


002550 


000004 


002554 






TYPE 


» .*2 


350 


002576 


000167 


176414 






JMP 


GOT 



! 13 THF TTY 

JASK FOR LOWfR LIMIT 

J GET IT 



ICR? 



JMIN MUST BE >0 
j'NOPE! 

JSAVE LOWER LIMIT 

jASK FOR UPPER LIMIT 
I READ IT 



J CR? 

ITEST FQR END 



I GREATER THAN THE MAX? 
lYFS • TRY AGAIN 

|'R0 MUST BE > MIN 
J IT' S NQT 
I GET ANOTHER 

j T V PFS NO DEVICE 



j", 4SCI2 " DOES NOT EXIST "<l5Xi2> 

j'RFTURN TO TTY INPUT MODE 



MAlNDEOil-QZQMA-A MEMORY EXERCISER 
OZOMAA'.Pil TRAP HANDLER 



MACYil',614 8«A P R.72 08153 P ACT 8 



351 


002602 


011601 




, TRP I 


u n w 
M U v 


352 


002624 


162701 


000002 




SUB 


353 


002610 


111101 






MQ VB 


354 


002612 


062701 


002634 




ADD 


355 


002616 


022701 


002706 




CMP 


356 


002622 


100401 






SMI 


357 


002624 


000171 


000000 




JMP 


358 


002630 


000000 






HALT 


359 


002632 


000776 






BR 


360 












361 


002634 






ADRTAB 1 




362 


002634 


003554 




WRADR 




363 


002636 


003612 




WRCADR 




364 


002640 


004216 




CH', RF 




365 


002642 


004600 




CH'.RC 




366 


002644 


005212 




CH'.RP 




367 


002646 


005610 




CH", RK 




368 


002650 


006160 




CH",TC 




369 


002652 


007124 




CH', TM 




370 


002654 


010454 




CH', DR 

s.fc 




371 


002656 


006424 






372 


002660 


007032 




RW r , TM 
CDATA 




373 


002662 


003236 






374 


002664 


011740 




G06ET 




375 


002666 


006160 




CH'.TC 
PQtS 




376 


002670 


003416 






377 


002672 


003632 




ER3 




378 


002674 


003434 




BEGIN 




379 


002676 


003726 




SET BAK 




380 


002700 


002774 




NXf 




381 


002702 


004016 




MAP 




382 


002704 


012376 




PATCH1 




383 


002706 


012416 




PATCH2 




384 




002706 




ENDTABb 


• •2 


385 












386 


002710 


017701 


176294 


SEGERRt 


MOV 


387 


002714 


005077 


176250 




CI» R 


386 


002720 


000004 


011406 




TYPE 


389 


002724 


000004 


011425 




TYPE 


390 


002730 


012105 






HQS! 


391 


002732 


004767 


007104 




JSR 


392 


002736 


000004 


011436 




TYPE 


393 


002742 


012105 






MQV 


394 


002744 


004767 


007072 




JSR 


395 


002750 


000004 


011447 




TYPE 


396 


002754 


011105 






MOV 


397 


002756 


004767 


007060 




JSR 


398 


002762 


000004 


011135 




TYPE 


399 


002766 


000000 






HALT 


400 


002770 


?00167 


177070 




JMP 



(6>,*1 JGFT TRAP INSTRUCTION 

#2iRl j'BACK UP BY 2 

(1),R1 jGFT THE RIGHT BYTE OF TPAP 

#ADRTAB,R1 j INDEX TO TABLE 

#ENDTAB,R1 j'CHECK FOR END OF TABLE 

,*4 lOUT OF BOUNDS 

»U> | GO TO ROUTINE 

j TRAP OUT OF BOUNDS 



,-2 




lHANS UP 




I CORE 


8 


TRAP+0 


(104400) 


JCOMCOR 


% 


TRAP+2 


(104402) 


JCHK.RF 


9 


TRAP+4 


(104404) 


ICHK.RC 


■ 


TRAP+6 


(104406) 


JCHK.RP 




TRAP*!? 


(104410) 


jCHK.RK 


* 


TRAP+12 


(104412) 


ICHK.TC 




TRAP*14 


(104414) 


JCHK.TM 


■ 


TRAP*14 


(104416) 


JCHK.DR 




TRAP+2? 


(104420) 


J SEARCH 


* 


TRAP+22 


(104422) 


jREWIND 


3 


TRAP+24 


(104424) 


j CKDATA 


9 


TRAP+26 


(104426) 


I ACCEPT 


9 


TRAP*30 


(104430) 


|ERR2 


* 


TRAP+32 


(104432) 


ISTOP 




TRAP+34 


(104434) 


|£RR3 




TRAP+36 


(104436) 


j START 


9 


TRAP+4P 


(104440) 


JSETBAN 


9 


TRAP+42 


(104442) 


) NEXT 


a 


TRAP+44 


(104444) 


I MAP I T 


a 


TRAP+46 


(104446 ) 


»DUM1 


B 


TRAP+50 


(104450) 


IDUM2 


a 


TRAP+52 


(104452) 



«SR0|R1 

»SR0 

i SEGA 

,SEG1 

U) + iTTY 

PC»PRINTR 

,SEG2 

( 1 ) * i TT Y 

PC»PRJNTR 

,SEG3 

(1)»TTY 

PC,PRJNTR 

,M13 

RTPF 



(MEMORY MANAGEMENT ERROR 

I TYPE SR0 

jTVPE (i)* I N OCTAL 

I'TYPf LEADING HERO'S 

I'TYPE SRI 

jTYPE ll>+ IN OCTAL 

{TYPE LEADING HERO'S 

j'TYPF SR2 

jTYPE (1) IN OCTAL 

I Tvpr LEADING HERO'S 



MMNDEC-il-OHQMA.A MEMQRY EXERCISER MACYll',614 8*APR W 72 08i55 PACE 9 
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401 


322774 


032737 


04001*0 


177570 


NXT l 


BIT 


#SWi4,3#SWR 


4?2 


3 3 3 3 2 


301111 








BNE 


2S 


433 


0030*4 


126700 


175770 






C M P B 


MX, R0 


4?4 


003010 


P02461 








BLT 




405 


203012 


032737 


002000 


177570 




BIT 


#SW10,<P#SWR 


406 


003020 


001005 








BNE 


55 


427 


003022 


112767 


000007 


007010 




MQVB 


#BELL i .TYPE 


408 


003030 


000004 


012040 






TYPE 


,,TYPE 


409 


003034 


013703 


000042 




5S| 


MOV 


f#42,R3 


410 


003040 


001406 








BEO 


105 


411 


003042 


004767 


006532 






JSR 


PCilODRES 


412 


003046 


004713 








JSR 


PC, (3) 


413 


003050 


000240 








NOP 




414 


003052 


000240 








NOP 




415 


003054 


000240 








MOP 


MIN|MX 


416 


003056 


016767 


175720 


175714 


1051 


MQV 


417 


003064 


016737 


175710 


177570 




MOV 


MX|»#D!SPLAY 


418 


003072 


032737 


000400 


177570 




BIT 


#SW08,»#SWR 


419 


003100 


001410 








BEQ 


6S 


420 


003102 


000004 


003106 






TYPE 


#i*2 


421 


003112 


016705 


175662 






MOV 


MX,TTY 


422 


003116 


004767 


006730 






JSR 


PC, PRINTS 


423 


003122 


005767 


000424 




65| 


TST 


MEMORY 


424 


003126 


100407 








SMX 


45 


425 


003130 


001403 








BEG 


3$ 


426 


003132 


005067 


000414 






CL» 


MEMORY 


427 


003136 


000433 








8R 


2$ 


428 


003140 


105167 


000407 




3S| 


COMB 


MEMQRY+1 


429 


003144 


000430 








BR 


2$ 


430 


003146 


000367 


000400 




45| 


SWAB 


MEMORY 


431 


003152 


000425 








8R 


2$ 


432 


003154 


005267 


175620 




l$i 


INC 


MX 


433 


003160 


016737 


175614 


177570 




MOV 


MX,<F>#DJSPUY 


434 


003166 


032737 


000400 


177570 




BIT 


#SW08,<?#SWR 


435 


003174 


001414 








BEQ 


2S 


436 


003176 


000004 


00.3202 






TYPE 


, ,*2 


437 


003204 


016705 


175570 






MOV 


MX, TTY 


438 


003210 


032735 


000007 






BIT 


#7,TTY 


439 


003214 


001402 








BEG 


71 


440 


003216 


042705 


177770 






BJC 


#1777 70, TTY 


441 


203222 


004767 


006624 




7S | 


JSR 


PCiPRINTS 


442 


003226 


104442 






2$| 


SETBANK 




443 


003230 


016704 


175754 






MOV 


LOLIM,R4 


444 


003234 


P00002 








RTI 





I'LOOP CN BAN*? 
j LAST PAGE? 

I INHIBIT BELL 
J YES! 

jTYpr a BELL 

I GET MONITOR ADDRESS 

i skip If 

I RESTORE THE LOADER 
I GO TO MONITOR 



jRFSFT MX 
j'DfSPLAY IT 
j TYPE" RANK NUMBER?? 
J NO | 

r.ASCI? <15><12>" " 

j TYPE MX IN OCTAL 

I AMD SUPRESS LEADING ZERO'S 

j'CHECK STATE OP FLAG 

iSWAB IT 

j'COM IT 

J IN IT IT 

ICONTINUE 

j M A K F IT 177400 

I SKIP 

IMAKF IT 377 

j GO TO NEXT BANK 

I D ISPLAY THE BANK IN USE 

I T Y P T "ANK NUMBER? ? 

j Nr* i 

I'.ASCIE " " 
JSFT FOR TYPING 
I MULTIPLE OF IS? 

I YES 

I CLEAR OUT UPPER BITS 

j TVPF M X AND SUPPRESS LEADING 2ER0ES 

I'SET MXC 

jSFT U p FOR BACKGROUND 



MA!NQEC-U'D2QMA.A MEMORY EXERCISER 
DiQMAA'.Pll SUBROUTINES 



MACYll',6l« 8-APR-72 081 



445 


203236 


104442 




446 


£23240 


?05767 


005442 


447 


203244 


001401 




448 


203246 


000022 




449 


003250 


005067 


020272 


450 


003254 


005067 


000270 


451 

~ *fe 


003260 


016702 


175724 


452 


003264 


004767 


000022 


453 


003270 


026712 


000252 


454 


003274 


001401 




455 


003276 


104436 




456 


033300 

*J %J s/ w V 


005722 




457 


003302 


026702 


175704 


458 


003306 


001366 




459 


© *j vj X iw 


000002 

V V If (f b li 




A 60 








461 


003312 


005767 


000234 


462 


003316 

W w V A w 


100430 

J. K/ f T w V 




463 


003320 

f f v w c 


003016 

( J w w f 4 U 




464 








465 


003322 


010203 




466 


003324 


000303 

vlrU WWW 




467 


003326 


006103 




468 


003330 


060203 

f W w fc « W 




469 


003332 


006003 




470 


003334 


066703 


000210 


471 


ll « w f w 


006003 




472 


003342 


103404 




473 


003344 


005167 


000200 


474 


003350 


005167 


000172 


475 


003354 


000207 




476 








477 


003356 


010203 




478 


033360 


010205 




479 


003362 


000303 




480 


003364 


006105 




481 


003366 


006105 




482 

^ w fc 


003370 


006105 




483 

tow 


003372 


006105 




484 


Z03374 


060503 




485 


203376 


000756 




486 








487 


03400 


010203 




488 


£03402 


006003 




489 


303404 


P10305 




490 


003436 


000305 




491 


003410 


006003 




492 


003412 


^06003 




493 


003414 


P00767 





COAT A 1 


SETBANK 






TST 


EX 




9E0 


,♦4 




RTI 






CI.R 


DATA 




ci.R 


BIT 




MOV 


L0LIH,R2 


IS 1 


JSR 


PC i GO AT A 




CMP 


DATA, (2) 




SEO 


.*« 




ERR3 






TST 


(2) + 




CMP 


MlLI M iR2 




BNE 


IS 




RTI 




GOATA 1 


TST 


MEMORY 




9MI 


T3XQR9 




RGT 


T8X0R13 


T1XQR8I 


MOV 


R2,R3 




SWAB 


R3 




RQL 


R3 




ADO 


R2,R3 




RQR 


R3 


ALIORI 


ADO 


BIT,R3 




RQR 


R3 




ecs 


IS 




COM 


BIT 




COM 


DATA 


Ui 


RTS 


PC 


T8X0R13IM0V 


R2,R3 




MOV 


R2,R5 




SWAB 


R3 




ROL 


R5 




RQL 


R5 




ROt 


R5 




ROL 


R5 


T3X9I 


ADO 


R5,R3 




BR 


ALLOR 


T3X0R9J 


MOV 


R2 t R3 




ROR 


R3 




MQV 


R3»R5 




SWAB 


R5 




ROR 


R3 




ROR 


R3 




PR 


T3X9 



5 PAGF 10 



j'CHECK DATA 



ISPT UP BEGINNING OF" BUFFER 



I'CWECK FOR END 



j'CWECK FLAG 

I'MMUG 

j'MMliF 

|"MM11E MEMORY 



IMM11F MEMORY 



jMMilG MEMORY 



MAlNOLC»il*D?aMA-A MEMORY EXERCISER MAcYll'. 614 8-ApRw72 38 1 55 



02QMAA ,P11 


SUBROUTINES 








494 


003416 


005037 


177776 


POTS l 




$#177776 


495 


003422 


005737 


177570 




TST 


9#SWR 


496 


003426 


100001 






8PL 


, +4 


497 


003430 


000000 






HAuT 




498 


003432 


000002 






R T I 




499 














500 


003434 


016705 


175340 


BEGIN} 


MOV 


HXiTTY 


501 


003440 


000241 






CLC 


TTY 


302 


003442 


006005 






ROR 


503 


003444 


006005 






$OR 


TTY 


504 


003446 


006005 






RQR 


TTY 


505 


003450 


006005 






ROR 


TTY 


506 


003452 


042705 


017777 




8 J C 


#17777 | TTY 


507 


003456 


017646 


000000 




MQV 


9 < 6 ) , • ( 6 5 


508 


003462 


017646 


000000 




MOV 


9 ( 6 ) t m { 6 ) 


509 


003466 


010576 


000000 




MOV 


TTY, * ( 6 ) 


510 


003472 


022626 






CMP 


( 6 ) + i ( 6 ) + 


511 


003474 


062716 


000002 




ADD 


*2i ( 6 ) 


512 


003500 


016705 


175274 




MOV 


MX i TTY 


513 


003504 


006105 






ROL. 


TTY 


514 


003506 


042705 


177717 




B I C 


#177717 . TTY 


515 


003512 


057605 


000000 




BIS 

w f w 


<M 6 ) , TTY 


516 


003516 


062716 


000002 




ADD 


#2 1 ( 6 > 


517 


003522 


017646 


000000 




MQV 


4»f 6 ) * • ( 6 ) 


518 


003526 


017646 


000000 




MOV 


9 ( 6 ) i > ( 6 ) 


519 


003532 


010576 


000000 




MOV 


TTY,»(6) 


520 


003536 


022626 






CMP 


(6)*» (6)+ 


521 


003540 


062716 


000002 




ADD 


# 2 1 ( 6 > ~ 


522 


003544 


000002 






RT I 




523 














524 


003546 


000000 




DATA 1 







525 


003550 


000000 




B I f I 







526 


003552 


000000 




MEMORY | 







527 














528 














529 


003554 


104444 




WRADR 1 


NEXT 




530 


003556 


005067 


177764 






DATA 


531 


003562 


005067 


177762 




CL.R 


9 I T 


532 


003566 


016702 


175416 




MQV 


LOL I M i R 2 


533 


003572 


004767 


177514 


15 1 


JSR 


PC» GDAT A 


534 


003576 


016722 


177744 




MOV 


D AT A i (2)* 


535 


003602 


026702 


175404 




CMP 




536 


003606 


001371 






BNE 


IS 


537 


003610 


000002 






RT I 




538 














539 


003612 


104442 




WRCADRl 


SETBANK 




540 


003614 


016702 


175370 




MOV 


L,0U*|R2 


541 


003620 


005122 




is i 


COM 


(2) + 


542 


003622 


026702 


175364 




CMP 




543 


003626 


001374 






BNE 


IS 


544 


003630 


000002 






RT I 





PAGr Ii 



jQROP PRIORITY 

J H A L T ON ERROR? 



I »A?H #13|TTY» 

I TO GET 

j THE THREE 

j'UPPCR BITS 

j'TC MAKE 

I THE ADDRESS 

J GET ADDRESS 

I'GET ADDRESS 

jLOAH MEMORY ADDRESS 

jRFSTQRE STACK 

I INCREMENT STACK 

I GET UPPER 2 BITS OF MXC 

I GET INTO POSITION 

I CLE AR JUNK 

j GET REST OF COMMAND 

l' INCREMENT STACK 

I GET ADDRESS 

I GET ADDRESS 

JlCAD MEMORY ADDRESS 

I RESTORE STACK 

j INCREMENT STACK 



j'SFT THE STARTING ADDRESS 



)END? 



I SETT UP BEGINNING OF BUFFER 
I'CflMPLlMENT IT 

iwOO 5 TIL END OF CORE 



MA!NDEC-U-D2Q M A-A MEMORY EXERCISER MACYli 
D28MAA',P11 SUBROUTINES 



545 


003632 

*•* JU *-* U W k 


2532737 


0)20000 


177570 


ER3 1 


546 


003640 


^04 401 








54 7 


PJ03A42 


01 01 01 2 

&l KJ 10 fc* £ 








548 


3 A 4 4 


022767 


041524 


006564 




549 
i'i » 


0036.53 


01 7 








1* J fc> 


003654 


212777 


000001 

iJ V L V lu 4 


175244 






003 AA9 

L> 10 w o o £ 


04 

K V w u ^ 


01103Z 

A w O V 




1$ t 


3 J c 


0036A6 


010505 








551 

3 3 w 


003A70 


004767 


006202 

16' W if,- 






3 3 •» 


01 pi Ta 7 ^ 


0000 4 

K/ i-* W ~ 


011051 
»y * x v j. 






RRR 


003700 


01 A705 


4 77642 






3 3 V 


003704 


004767 


0061T2 






3 3 / 


01 7 4 01 


01 01 0) 01 01 A 
v 10 10 10 10 7 


01 1 1 A 1 

Ifl 1 1 10 \J 






330 


0! 01 ^ 7 4 4 


01 190 5 








550 


01 3 7 4 A 

naiflo / 10 


0047 A7 

■y io ~ / o / 


0061 90 

10 £J w X £ 10 






5 A 01 
3010 


007799 


1 04434 

X Iff «T ** « " 








5A1 


003 7 94 


00 9 

lO %/ IO if £ 




















3 O w 


003796 

io 10 u / C © 


01670S 


175046 




SETS 


5A4 
3 Q *t 


003779 


005767 


175050 






5 A5 
3 0? 


01 7 7 7 A 

1010*3 / JO 


0141 1 
*3 V 1 *♦ X Jt 








5 A A 


003740 


1 00405 

X K/ il 1 U J 








5A7 


37 4 9 


00^05 








5A A 
3 O 


0017744 


00A905 








5 A Q 

soy 


J) 01 1 7 4 A 

o 10 *j / * O 


01 0577 

*} 1 10 3 / / 


4 75394 






5 7 01 
3 / 10 


01 1 7 5 9 

10 10 <j / 3 £ 


9 

iO 10 10 ti <£■' £ 








5 71 

3/4 


01 1 7 5 4 

10 |0 O / 3 ^ 


01 0577 

t X IO 3 / / 


1 75296 




1 s i 


5 7 3 
3 / £ 


01 01 7 7 A 01 


01 9 

L KV 10 V C 








3/0 


01 7 7 A 9 

13 jo >J / £ 


000941 
*IOlOc*t X 






2 J i 


3 / n 


(1 01 1 7 A 4 


0! 01 A 01 5 

« ' I0 10 10 3 








3/3 


{11 1% 7 7 A A 
» JO / 


Of 01 A 01 01 5 
W 10 K) a 3 








57 A 

3/0 


£1 01 3 7 7 01 


A 5 

t> 10 O 10 v •» 








577 

3 / / 


Pi 3 7 7 9 

10 u / / £ 


006005 

t V v U v # 








5 7 R 
3/0 


£1 01 3 7 7 4 


049705 


0J7 7 77 






37 V 


CI <% A fit ft 01 
«' iu " lo 10 


01 1 01 5 A 7 


1 75204 

1 / 3 £ (0 "t 






can 

3010 


a ni A r% m A 
«' v " 10 H "r 


OIA9705 
1C O £ / 10 3 


01 9 01 
10 £ f 10 10 10 






Ell 

301 


CI 01 A ffl 4 01 
kJ 10 * kJ 1 10 


oi 1 oi c; A 7 

/i 1 63 3 / 


1 751 76 

1/31/0 






30Z 


Cl fll 4 4 A 

«' «3 ^ ifl 1 * 


0! 01 01 01 ffl 9 
10 10 10 10 10 £ 








3So 












3 4 












303 


CI 01 4 01 4 A 

10 jo *» 10 1 


H 3 7 7 7 

<^ 1 <£ / / / 


01 01 
!o io io io io iy 


1 75146 


MAPI 


w W 


40 94 

v IW ^ W C T 


012777 


077406 


175142 




337 


004032 


012777 


000200 


175136 




588 


004040 


012777 


077406 


175132 




589 


e 04046 


012777 


007600 


175126 




590 


£04054 


012777 


077406 


175122 




591 


204062 


000002 









6i 4 e.App.72 08155 PAGET 12 



an 


#SW13,»#SWR 


1 IV'HIB 


peo 


i+4 




R T 1 






CMP 


#"TC, INPUT 




9NE 


IS 




MOV 


#1 1 £*TCCS 




TYPE 


iM7 




MOV 


R2 i TT Y 


j'TYpr 


JSR 


PCiPRINTA 




TYPE 


t M8 




MOV 


DAT A i TTY 


I Tvpr 


JSR 


PCiPRJNTR 


j'TYPr 


TYPE 


iM9 




HQV 


(2), TTY 


i type: 


JSR 


PCiPRJNTR 


iTYPr 


STOP 






RT I 







j'TYPr WITH M X AS 18 BIT ADDRESS 



MOV 


MX, TTY 




TST 


OPTION 


IWHA? AM I 


8E0 


2$ 


1 I ' M N5THING 


BM J 


IS 


I I ' M AN MX11 


SWAB 


TTY 


1 «ASH #7!TTY« 


ASR 


TTY 




MOV 


TTY , f K I SAR6 




RT I 






MOV 


TTY ( S>MXC3 


i'load the mxc 


RTI 






CLC 




j #ASH #13,TTY» 


ROR 


TTY 


IROTATC 


ROR 


TTY 


iTHE U P PER 


ROR 


TTY 


ITHREE BITS 


ROR 


TTY 


I TO ' MAKE 


8 I C 


#17777, TTY 


; CLEAR JUNK 


MOV 


TTY,LOL!M 


JAODRESS 


ADD 


#20000, TTY 


l" M A K F UPPER 


MOV 


TTY , H J (, I M 


ILIMIT 


RT I 







MOV #0,9KISAR0 

MOV *77406ioKI5DR0 

MOV #200,»KISAR6 

MOV #77406, *KJSDR6 

MOV #7600, *K ISAR7 

MOV #77406, 9KJSDR7 
RT I 



MAINDEC-11-02QMA-A MEMORY EXERCISER MACYil',614 8-ApR»72 08155 PA 
DHQMAA'.Pll RFil DISK HANDLER 



592 


004064 


104404 


593 


004066 

is is v w U 


104426 


j ' t 


004070 


104400 


595 


004072 


r*12777 


596 


004 100 

w w ^ A w 


01677 7 


597 


004106 


005077 


598 


0041 1 2 


104440 


599 


004114 


001062 


A CI CI 
w 10 v 


If fcl "» J, C c 


2 

b' v w V 


Q W 4 






602 


004124 


104404 


603 

V fc' w 


0041 26 


012777 


604 

w ju ^ 


004134 


016777 


60)5 


0041 42 


005077 


wKf V 


004146 

1C V ~ x ~ w 


104440 


W C r 


004150 


001062 


608 


004156 


000002 


609 






610 


004160 


104404 


611 


004162 


104402 


612 


004164 


012777 


613 


004172 


016777 


614 


004200 


005077 


615 


004204 


104440 


616 


004206 


001062 


617 


004214 


000002 


618 







W'.RFI 
TRP , RF I 

004124 174712 
175110 174752 
174752 

000103 001054 



C, RFI 

004160 174654 
175054 174716 
174716 

000107 001054 



R 1 R F ! 

004064 174616 
175016 174660 
174660 

000105 001054 

1 PAGE 



CHK ,RF 
CKOATA 
CORE 

MOV #C,Rf r l ?RFTRAP 
MOV WRDCNTifcRFWC 
GL.R »RFD* 
START 

PFCA, 100! 3,RFCS 
RTI 

chk rf 

MOV* #R,RF,»RrTPAP 
MOV WRDCNT,9RFWC 
CLR *RFQA 
START 

RFCA f 1^017, RFCS 
RTI 

CHK.RF 

COMCOR 

MOV #W,RF |ORFTRAP 

MOV WRDCNTifRFWC 
CU R 8&RFDA 
START 

RFCA»100!5,RFCS 
RT! 



r 13 



Cw£CK FOR ERRORS 

CHECK CORE 

i.C A n CORE WITH DATA 

'chfck* trap address 
word count 
dsk address 

LOAD CURRENT ADDRESS « JE!3 AND GO 



jCWECK FOR ERRORS 
j'READ' TRAP ADDRESS 
I'WORD COUNT 
}D?K ADDRESS 

jLOA? CURRENT ADDRESS £ I E ! 7 AND GO 



(CHECK FOR ERRORS 
jCOMPLtMENT CORE 
I'URITE' TRAP ADDRESS 
jWORD COUNT 
I'OSK ABDRESS 

IL3AP CURRENT ADDRESS « !E!5 AND GO 



MAtNOEC-ll"0?QMA-A M EMQR Y EXERCISER MACYll',614 8.ARR.72 03155 
02QMAA',P11 ERROR ROUTINE FOR RFU 



A 1 


0! 01 4 9 4 A 
v H A 1 


10 7 10 v / 


t 3 4 4 a 4 




CH" RF I 


"IR 


EX 


a 9 oi 

C 


51 51 4 5 9 7 


0| 0|t? 7 7 7 
v 10 9 / ' / 


1 74696 






TST 


PRFCS 


A 9 1 


01 01 4 9 9 A 
v C *» £ c 


1 01 0| a 9 A 
1 10 t) £ w 








BPL 


11 


£ C 


$ 01 4 9 ^ a 
v *» £ 


oi 01R 9 A 7 
10 9 A / 


Tf 3 4 4 5 9 






I NC 


EX 


c 


51 4 "3 t 4 
& v ~ <£ J *t 


0IT9717 

/-' O C 1 Of 


Of 9 01 01 « 01 
iJ C %1 U 10 10 


177570 




9 1 T 


#SWl3 , »#SWR 


A 9 A 


01 (91 4 9 4 9 
v 4 < 4 A 


Of Of 4 01 9 01 
lo 1 A 








9NE 


15 


© e 5 


PI 01 4 9 4 A 
«-> 4 £ 4 4 


01 1 7 7 Ol K 


1 7 4 A Ol 4 
1/ IBB"' 






MQV 


»RFCS , TTY 


£ © 


0! 01 4 9 101 
& 10 4 <£ 9 


Ol 0! 01 01 01 A 
<? v5 4 


OM 1 1 74 






TYPE 


, RF , HI " 


A.97 
Be/ 


fl 1 01 4 9 4 

10 ^ A ? 4 


01 01 01 01 Of A 
v V 10 tU It 4 


Of 1 1 did 

£> i. 1 10 X 1" 






TYPE 


, M3 


020 


(71 01 4 9 A 01 
004 6 '60 


01 01 A 7 A 7 


01 0| K K e A 
9 5 9 






JSR 


PCPRINTR 


o c y 


31 0! 4 9 A 4 

w 10 4 2 6 4 


01 01 01 0! 01 A 
4 


Ol 1 1 f3l 9 (71 

1 J, 10 £ 






TYPE 


, M4 


o o lo 


«304271O 


Ol 1 fTIJK 

1 / / ? 


4 7 ji e * 9 
1 / 4 3 6 s 






HOV 


9RFER i TTY 




1.31(54^74 


01 01 A 7 A 7 


9 9 A A 






JSR 


PC , PR I NTR 


o 2 


(71 01 A 1 19 01 

00* 000 


1044O4 








STOP 




a *i i 


01 01 4 T fll 9 

004002 


0! 0! Of 01 01 9 
IC «J C 








RT I 


#SWl3,i?#SWR 


© 4 


01 01 4 t 01 A 
•0 10 ~ <3 4 


0! 7 ^ 7 


01 9 (71 51 01 01 

10 A !C w 10 10 


177570 


i S i 


B I T 


AIR 


01 01 4 1 4 9 
004012 


171 Oil Oi *! 4 
10 1 9 "t 








3NE 


25 


90S 


01 01 A t 4 A 


^ 4 7 7 A 7 

117/6 7 


d 7 4 K 7 d 

1 / S 9 4 


<3 10 "t w Q A 




MOVB 


56RFCS | CHK 


a ^ ^ 

03 7 


01 nt A 1^*$ 
00*322 


4 4 A ? A 7 

11676 7 


<4 7 4 4 R 9 
1 7 4452 


10 *♦ 9 




M VB 


MX i CHK+1 


$38 


f% ft A TP *f f% 

004330 


4 01 R O A 7 

105267 


01 01 A 1 K 4 
004051 






T NCR 


CHK + 1 


A 1 Q 


n n A % f A 
004334 


4 01 A (71 A 7 

110600 / 


01 01 A 7 4 A 
4 4 4 






RQRB 


CHK 


A A 01 

4 


01 01 A 1 A 01 

004,340 


01 01 A 01 A 7 

B060O / 


01 !71 4 ^ A 01 
0IO4O40 






RQR 


CHK 


4 A 4 

641 


01 {% At A A 

004^44 


01 01 A 01 A 7 
00600 / 


01 0| A *l 1 A 
4 J 4 






RQR 


CHK 


642 


004,550 


01 01 A 01 A 7 

00606 / 


01 01 4 H f 01 
4 






RQR 


CHK 


643 


nt rn a t ■ a 

00*354 


01 A t T A t 

04276 7 


* 7 A 1 T A 

1 7 7 4 


4 C A 




R I C 


#17637*1 CHK 


64 4 


Of or A "r A 
004362 


4 9 A T A 7 

126767 


Of 01 4 7 4 A 
4 010 


01014^1 S 
w " o 1 




CMPB 


CHK . CHK+1 


JL A R 


01 m A if ^ oi 
4 37 


01 OH A 9 K 








y eq 


2$ 


A j4 A 

6 4 6 


01 01 4 T t 9 
4 7 A 


OS 01 01 01 Of 4 
(700004 


Ol 1 1 1 7 4 
X A 1 ' 4 






TYPE 


i RF" , mi 


A .4 V 

047 


01 01 4 1 T A 

004,370 


01 01 fll 01 01 A 
iu 4 


01 1 i 1 A >5 
0114 0? 






TYPE 


i M15 


A A O 


Ok f% A A fk*} 

4 4 ™ 2 


016/05 


4 74^7? 
1/^0/6 






MQV 


MX, TTY 


Jl A Q 

64V 


Ot 01 A A fll A 

4 4 


01 01 A 7 A 7 
4 / O / 


01 ^ S 4 A 01 
C V J~ 4 10 






JSR 


PC»PRINTS 




01 01 A i! 4 9 

4 4 1 £ 


Of 01 01 0! 0! 4 
«3 10 *» 


01 1 1 OIK 1 
1 J, 10 9 1 






TYP£ 


, M8 


51 


0! 01 4 A 4 A 
«5 4 4 1 


1 1 A 7 0! K 


oipiA 9a3 

10 v *< A w 






MOVB 


CHK+1 | TTY 


AS? 


v |G ^ 4 A A 


004767 


005424 






JSP 


7, PRINTS 


653 


004426 


000004 


011063 






TYPE 


,M9 


654 


004432 


116705 


004246 






HOVB 


CHK i TTY 


655 


004436 


004767 


005410 






JSR 


7, PRINTS 


656 


004442 


104434 








STOP 




657 


004444 


000002 






2S| 


RTI 





PACT 14 



CLEAR ERROR FLAG 
AW ERRORS? 
3°AVCW IF NO ERRORS 
SFT ERROR FLAG 
INHIBIT ERROR TvPFQUT 
INHIBIT TYPEOUTS 
SFT TTY FOR TYPING 
TYPF DEVICE MESSAGE 
TYPE CS 

TYPF RFCS I\ OCTAL 
TVPF FR 

TYPF *RF£R IN OCTAL 
TYpr LEADING ZERO'S 
HAL T ON ERROR 
RFTURN 

INHIBIT ERROR TYPEOUT 
YES! 

GET E A 9 ITS 
GET MX 9 I TS 

IWCRE M EN'T INTO EA BITS 
MOVE OVER BV 1 
MOVE IT 
INTO 

POSITION 
CLEAR JUNK 

MAKE SURE EA BITS INCREMENT 

RETURN IF EQUAL 

TYPF DEVICE MESSAGE 

TYPE "BANK" 

TYPE mx IN OCTAL 

AND SUPRESS LEADING ZERO'S 

TRUE 

GET BYTE 

TYPE TRUE EA BITS 

RECEIVED 

GET BYTE 

TYPE RECEIVED E A BITS 
WA JT 

RETURN 



MAJNQEIOU-D2QMA.A MEMORY EXERCISER MACYll',614 8-APR-72 08155 
OZQMAA'.Pli RC11 DISK manQLER 



V J V 


t W ~ " ~ v 


104406 




? £?l 4 4 "5 PI 


104426 


6 60 


22)4432 


i L* ~ T «- V 


A A 1 

OVA 


034454 

it- &/ ~ *t J "T 


012777 


A A 2 

v U £ 


51 4 4 A 2 


016777 

^ A w f ' 1 


A A f 

Sou 


004470 


00507 7 


A A 4 


004474 


104440 


A A 5 


004476 


001 074 


AAA 


f 10 ~ 3 *t 


<" v v 10 1" * 


A A 7 
00/ 






AAA 

www 


00430 A 

f 10 ~ 3 v w 


104406 


A AO 


oi 4 m oi 

^i0^31 w 


012777 


A70 


PI 01 4 K 1 A 


016777 


A 7 1 


004594 

•o io ^ 3 *. ~ 


005077 


A 7 9 


004*510 

i" V ^ 3 o f 


104440 


A 7 7 

/ w 




001074 

f JO X 10 ' ~ 


A74 


0514540 


000002 


A75 






676 


004542 


104406 


677 


004544 


104402 


678 


004546 


012777 


679 


004554 


016777 


680 


004562 


003077 


681 


004566 


104440 


682 


004570 


001074 


683 


004576 


000002 


684 







W'.RCI 
TRP.RCl 

004506 174332 
174526 174402 
174402 

000103 001066 



C.RCI 

004542 174276 
174472 174346 
174346 

000107 001066 



R.RCJ 

004446 174240 
174434 174310 
174310 

000105 001066 

i PACE 



CHK , RC 
CKDATA 
CORE 

«QV #C, RC,*RCTRAP 

M V WRDCNTi *RCWC 

CL« (?RCDA 
START 

»CCAil00|3|RCCS 
RTI 

CHK.RC 

MOV #R,RC|»RCTRAP 

MOV WRDCNTii?RCWC 
CLR »RCDA 
START 

RCCAil00{7|RCCS 
RTI 

CHK.RC 
COMCOR 

MOV #W',RC,0RCTRAP 
MOV WROCNT|®RCWC 
CLR >RCDA 
START 

RCCAi100!5iRCCS 
RTI 



15 



ICWEPK FOR ERRORS 
l'CHE?K CORE 
ILOA^ ro q E WITH DATA 
I .' CHFC*' TRAP ADDRESS 

i" w n R n count 

lOSK ADDRESS 

IL0A3 CURRENT ADDRESS & !E!3 AND GO 



I'CftECK FOR ERRORS 
j/READ' TRAP ADDRESS 
iWOR^ COUNT 
IDSK ADDRESS 

j'LCA? CURRENT ADDRESS & 1 EI 1 7 AND GO 



(CHECK FOR ERRORS 

JC0M°L!MENT CORE 

I /WRITE' TRAP ADDRESS 

j'WORD count 

lOSK ADDRESS 

ILOAC CURRENT ADDRESS 4 !El5 AND GO 



MA1NDEC-11«D?Q M A-A MEMORY EXERCISER MACYll',614 8-ApR,72 38155 
02QMAA',P11 ERPO* ROUTINE FOR RC11 



635 


004600 


005067 


004102 




ch; rc i 


CL.R 


EX 


6B6 


004604 


005777 


174256 






TST 


#RCCS 


687 


004610 


100026 








BPL 


15 


688 


004612 


305267 


004070 






INC 


EX 


689 


004616 


032737 


020000 


177570 




BIT 


#SW13,»#SWR 


690 


004 624 


001020 








BNE 


IS 


691 


004626 


017705 


174234 






MOV 


•RCCS, TTY 


692 


004632 


000004 


011217 






TYPE 


,RC,Ml 


693 


004636 


000004 


011010 






TYPE 


,M3 


694 


004642 


004767 


05174 






JSR 


PCiPR JNTR 


695 


004646 


000004 


011020 






TYPE 


,M4 


696 


004652 


017705 


174212 






MOV 


• R-CER|TTY 


697 


004636 


004747 


0031 A0 






JSR 


PCiPRINTR 


698 


004662 


104434 








STOP 




699 


004664 


000002 








Rf I 


#SW13,»#5WR 


700 


004666 

*•* V WWW 


032737 


020000 


177570 


15 i 


BIT 


701 


004674 


001034 








BNE 


25 


702 


004676 


117767 


174164 


004000 




MOVB 


a»RCCS,CHK 


703 


004704 


116767 

* 4 w / w f 


174070 


003773 




MOVB 


MXi CHK+l 


704 


00471 ? 


105267 

Jb C* w f 


003767 






INCB 


CHK + 1 


705 


004716 


106067 


003762 






RORB 


CHK 


706 


004722 


006067 


003756 






ROR 


CHK 


707 


004726 


006067 


003752 






ROR 


CHK 


708 


004732 


006067 


003746 






ROR 


CHK 


709 


004736 

f V * / w W 


042767 


176374 


003740 




BJC 


#176374,CHK 


710 


004744 


126767 


003734 


003733 




CMPB 


CHK | CHK+i 


711 

f X X 


00 4 7 52 


001425 








BEQ 


25 


71 P 


004734 


0000 4 

C/ K/ f C/ *•* T 


011217 






TYPE 




713 


004760 


9)00100 4 

1/ %r E/ aV t 


011165 






TYPE 


iM15 


714 


004764 


016705 


174010 

X ' w X *^ 






MOV 


MX,TTY 


715 

r X «» 


004770 


004767 


005056 






JSR 


PCiPRINTS 


716 

r X w 


004774 


000004 


011251 






TYPE 


,M8 


717 

f X ' 


005000 


116705 


003701 






MOVB 


CHK+1 i TTY 


718 


005004 


004767 


005042 






JSR 


7, PRINTS 


719 


003010 


000004 


011063 






TYPE 


,M9 


720 


003014 


116705 


003664 






MOVB 


CHK i TTY 


721 


0050$0 


004767 


005026 






JSR 


7iPRINTS 


722 


005024 


104434 








STOP 




723 


005026 


000002 






2$ 1 


RT I 





P AG r 16 



CLEAR ERROR FLAG 
ANY ERRORS? 
3»A>'CH IF NO ERRORS 
SET E B R?R FLAG 
INHIBIT ERROR TYPEOUT 
I WH I B I T TYPEOUTS 
SET TTY FOR TYPING 
TYPE DEVICE MESSAGE 
TYPE CS 

TYPE RCCS IN OCTAL 
TYPE PR 

type 0rcer in octal 
type leading zero's 

WALT ON ERROR 
RETURN 

INHIBIT ERROR TYPEOUT 
YES! 

GET E A BITS 
GET MX BITS 

INCREMENT INTO EA BITS 
MOVE OVER BY 1 
MOVE IT 
INTO 

POSITION 
CLEAR JUNK 

MAKE SURE EA BITS INCREMENT 

RETURN IP EQUAL 

TYPE DEVICE MESSAGE 

TYPE "BANK" 

TYPE MX IN OCTAL 

AND SUPRESS LEADING HERO'S 

TRUE 

GET BW 

TYPE TRUE EA BITS 

RECEIVED 

GET BYTE 

TYPE RECEIVED EA BITS 
WAIT 

RETURN 



MAIND£C-H*DHQ M A-A MEMORY EXERCISER MACYU',6i« 8»ApR.7g 08155 
02QMAA',P11 RPil DISK HANDLER 



724 


005030 


104410 


725 


005032 


104426 


726 


005034 


104430 


727 


005036 


012777 


728 


005044 


016777 


729 


005052 


005077 


730 


005056 


104440 


731 


005060 


001124 


732 


005066 


000002 


733 






734 


005070 


104410 


735 


005072 


012777 


736 


005100 


016777 


737 


005106 


005077 


738 


005112 


104440 


739 


005114 


001104 


740 


005122 


000002 


741 






742 


005124 


104410 


743 


005126 


104402 


744 


005130 


012777 


745 


005136 


016777 


746 


005144 


005077 


747 


005150 


104440 


748 


005U2 


001104 


749 


005160 


000002 


750 


005162 


012777 


751 


005170 


105777 


752 


005174 


100375 


753 


005176 


005777 


754 


005202 


100375 


755 


005204 


005077 


756 


005210 


000711 


757 







W'.RPI 
TP'.RPl 

005070 173754 
174144 174030 
174030 

000103 001100 



C'.RP! 

005124 173720 
174110 173774 
173774 

000107 001100 



R'.RPl 

005030 173662 
174052 173736 
173736 

000105 001100 

000011 173710 TRP.RPi 
173704 

173710 

173670 

i page 



chk.rp 

CKDATA 
CORE 

MOV #C,RP|*R p T3AP 

MOV WRDCNTffrSPWC 

CLR (SiRPpA 
START 

RPCAi10013iRPCS 
RT1 

CHK.RP 

MOV *R',RP,»RPTRAP 

MQV WRDCNTiHRPWC 

CLR f RPOA 
START 

RPCA, 10017, RPCS 
RT1 

CHK.RP 

MOV #W|RP|»RPTPAP 

MOV WRDCNT,»RPWC 

CLR »RPDA 
START 

RPCA»100!5,RPCS 
RT I 

MOV #11,»RPCS 

TSTB KRPCS 

BPU ,»4 

TST 3>RPDS 

BPL ,*4 

CLR ?RPCS 

BR TP,RP 
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I'CflECK FOR ERRORS 

j CHECK CORE 

iLOAQ CORE WITH Data 

j /CHECK' TRAP ADDRESS 

I'HORD COUNT 

I DSK ADDRESS 

I LOAD CURRENT ADDRESS * JE!3 AND GO 



j'CHECK for errors 
I /READ' TRAP ADDRESS 
l"W8RD COUNT 
lOSK ADDRESS 

jLOAD CURRENT ADDRESS & !Ef 7 AMD GO 



jCMECk FOR ERRORS 

I COMPLIMENT CORE 

1 1 WR f TE ' TRAP ADDRESS 

J WORD COUNT 

j'DSK ADDRESS 

ILOAD CURRENT ADDRESS & JE!5 AMD GO 



MAINDEC-H-02QMA.A "EMQRY EXERCISER MACYll',61 4 8-ARR.72 08 1 53 
DiQHAA* P Pll ERROR ROUTINE TOR RPll 



758 


205212 


205067 


023470 




CH'.RP! 


CL.R 


EX 


759 


005216 


?05777 


173656 






TST 


3RPCS 


760 


035222 


100034 








PPL 


1$ 


761 


005224 


305267 


003456 






INC 


EX 


762 


005230 


?32737 


020000 


177570 




BIT 


*SW13,9#SWR 


763 


005236 


001026 








9NE 


IS 


764 


005240 


017705 


173634 






MOV 


fRPCS, TTY 


765 


005244 


000004 


011265 






TYPE 


iRP.Ml" 


766 


005250 


000004 


0110i0 






TYPE 


,M3 


767 


005254 


304767 


004562 






JSR 


PC,PP JNTR 


766 


005260 


000004 


011020 






TYPE 


|M4 


769 


005264 


017705 


173620 






MQV 


•RPE«i TTY 


770 


005270 


004767 


004546 






JSR 


PC i PR J NTR 


771 


005274 


104434 








STOP 




772 


005276 


012777 


000001 


173574 




MOV 


#1, PRPCS 


773 


005304 


105777 


173570 






TSTB 


*RPCS 


774 


005310 


100375 








9PL 


, i4 


775 


005312 


000002 








RTI 




776 


005314 


032737 


020000 


177570 


IS t 


B J T 


*SWl3,<*#SWR 


777 


005322 


001054 








ONE 


2$ 


778 


005324 


117767 


173550 


003352 




MOVB 


PRPCS, CHK 


779 


005332 


116767 


173442 


003345 




MQVB 


MX| CHK+1 


780 


005340 


105267 


003341 






!NCB 


CHK+1 


781 


005344 


106067 


003334 






PORB 


CHK 


782 


005350 


006067 


003330 






ROR 


CHK 


783 


005354 


006067 


003324 






ROP- 


CHK 


784 


005360 


006067 


003320 






ROR 


CHK 


785 


005364 


042767 


176374 


003312 




BJC 


#176374, CHK 


786 


005372 


126767 


003306 


003305 




CMPB 


CHK,CHK+1 


787 


005400 


001425 








8EQ 


2S 


788 


005492 


000004 


011265 






TYPE 


,RP,M1 


789 


005406 


000004 


011165 






TYPE 


iM15 


790 


005412 


316705 


173362 






MOV 


MX i TTY 


791 


005416 


004767 


004430 






JSR 


PC, PRINTS 


792 


005422 


000004 


011051 






TYPE 


, M.8 


793 


005426 


116705 


003253 






MQVB 


CHK+1 i TTY 


794 


005432 


004767 


004414 






JSR 


7,PRINTS 


795 


005436 


000004 


011063 






TYPE 


,M9 


796 


005442 


116705 


003236 






MQVB 


CHK, TTY 


797 


005446 


004767 


004400 






JSR 


7, PRINTS 


798 


005452 


104434 








STOP 




799 


005454 


000002 






2$ | 


RTI 





PAGE 18 



I'CLEAR E Q ROR Fj. AG 
jANY ERRORS? 
j'SRAMCH IF NC ERRORS 
ISET ERROR FLAS 
j'JNHIBlT ERROR TYPEOUT 
1 INHIBIT TYPEOUTS 
j'SET TTY FOR TYPING 
] TYPE DEVICE MESSAGE 
J TYPE CS 

jTYPE RPCS IN OCTAL 
j'TYPE ER 

ITYPE PRPER IN OCTAL 

I'TYPE LEADING 2ER0>S 

I HALT ON ERROR 

I LOAD A CLEAR 

I WAIT r R 

IDONE 

I RETURN 

I INHIBIT ERROR TYPEOUT 
lYES! 

j'GET E A BJTS 

j' GET MX BJTS 

I INCREMENT INTO E A BITS 

IMOVE OVER BY 1 

I'MOVE IT 

j INTO 

j'POSITlON 

J CLEAR JUNK 

j'MAKE SURE E A BITS INCREMENT 

JRETURN IF EQUAL 

|"T9PE fJEVICE MESSAGE 

j'TVPE "BANK" 

JTYPE MX JN OCTAL 

I AND SUPRESS LEADING ZERO'S 

J TPUE 

j GET BN'TE 

J'TYPE TRUE EA BITS 

JRECEIVED 

JGET BYTE 

jTYPF RECEIVED E A BITS 
I WAIT 
I RETURN 



MAJN0EOU-D2QMA-A *EMQRY EXERCISER MACYll',614 8.APR-72 03155 
OZBMAA'.PU RK11 DISK HANDLER 



8?e 


5*25456 


104412 


801 


035460 


104426 


8?2 


225462 


104400 


803 


005464 


012777 


804 


005472 


016777 


805 


005500 


005077 


806 


005504 


104440 


807 


005506 


001122 


808 


005514 


000002 


809 






810 


005516 


104412 


811 


005520 


012777 


812 


005526 


016777 


813 


005534 


005077 


w A ™ 


005540 


104440 


815 


005542 


001122 


816 


005550 


000002 


817 






818 


005552 


104412 


819 


005554 


104402 


820 


005556 


012777 


821 


005564 


016777 


822 


005572 


005077 


823 


005576 


104440 


824 


005600 


001122 


825 


005606 


000002 


826 







W R K I 
TRP'.RKI 

335516 173332 
173516 173420 
173420 

C500133 001114 



C'.RKI 

005552 173276 
173462 173364 
173364 

000107 001114 



R I R K I 

005456 173240 
173424 173326 
173326 

000105 001114 

■ pace 



CH* , RK 
CKDATA 

CORE 

MOV #C,RK,? ) RKTRAP 
MOV WRDCNT, fRKWC 

CL R »RKDA 
START 

PJKCA, 100J3, RKCS 
RT! 

CHK.RK 

MOV *R,RK, »RKTRAP 

MQV WROCNT,*RKWC 
CLP »RKDA 
START 

RKCA, 130{7, RKCS 
RT I 

CHK.RK 

COMCOR 

MOV #W f RK,»RKTRAP 

MOV WRDCNTiiRKWC 
CLR #RKQA 
START 

RKCA,100|5#RKCS 
RT J 



•AGE! 19 



I CHECK FOR ERRORS 

ICHECK CORE 

ILQAO CORE WJTH ?AT A 

j ' C H F C K ' TRAP ADDRESS 

IWORO COUNT 

f'OSK ADDRESS 

j 1. A 13 CURRENT ADDRESS A t £ t 3 AK'D GO 



{'CHECK FOR ERRORS 
l'/READ' TRAP ADDRESS 
j WORD COUNT 
iDSK ADDRESS 

I L A CURRENT ADDRESS « IE I 7 AND GO 



j'CHECK FOR errors 
j'CCMPLlMENT CORE 
//WRITE' TPAP ADDRESS 
j'WORO COUNT 
iDSK ADDRESS 

I'LOAD CURRENT ADDRESS « IE (5 AMD GO 



MAJNDEC-11-D2QMA.A m£mORY EXERCISER MACYll',614 8-APR.72 38 1 55 
OIQMAA'.PU ERROR ROUTINE TOR RKll 



827 


005610 


005067 


003072 




CH', RK 1 


CLR 


EX 


828 


005614 


003777 


173274 






TST 


&RKCS 


929 


0056 90 

u V y w c u 


i 001034 








BPL 


1$ 


810 


00569? 




V V M V 






INC 


EX 


1511 


0015 A 96 

B ^ U 6 w 


039737 


f, fM f W 


177570 




8 J T 


#SW13, P#SWR 


812 

w <J ft 


0015 A14 


001 096 

■y » i t) c u 








BNE 


is 


*il3 

www 


005616 

1" B w w O 


017705 


173252 






MOV 


9RKCS , TTY 


S14 

V O ~ 


00564? 

J" u w f ft 




011242 

\0- X X fc *• 






TYPE 




815 

Q u 


005A4 A 

f B O *! O 


000004 

6 S! 17 KJ £ "t 


011 01 
IC X X v X *0 






TYPE 


, M3 


816 

w O v 


005A59 


004767 


0041 A4 
\0 v ^ X O ~ 






JSR 


PCiPRINTR 


817 

w *J f 


005 656 

^ B v O v w 


4 

<y K/ cJ kV IC> ~ 


011090 

KJ X X Iw C IW 






TYPE 


,M4 


838 


005662 

V W Q ft 


017705 


173230 






MQV 


*RK£R,TTY 


fil9 


005A AA 
f v O O O 


0047A7 


0041 R0 






JSR 


PCiPRINTR 


B40 


10 w O f ft 


1 04434 

i W ~ ™ w ~ 








STOP 


*li ?RKCS 


fl41 
o t x 


005A74 


019777 


00001 
!6 v f &/ j£? X 


173212 




MOV 


fl 4 9 


10 10 / lo ft 


1057 7 7 


1 73206 

4 1 w b 10 V 






TSTB 


fRKCS 


S41 
O *t 


00570IA 


1 00175 








BPL 


1 * 4 


A4 4 
O *t •» 


PI (71 5 7 4 01 


000 9 








RTI 


#SW13,»#SWR 


S45 

O *T *» 


00571 9 
If 10 > / 1 ft 


039737 


020000 

V ■ V IV £1 V 


177570 


is j 


BIT 


S46 


01 5 7 9 51 

%J ti S f CIO 


001 054 








5NE 


2$ 


34 7 


001579? 

w If v / £ ft 


117767 

XX' /Of 


X ' » X w V 


002754 




MQVB 


*RKCS,CHK 


a d s 

53 *T O 


01 0157101 

•y jo -» / ij io 


1 1 A7A7 
X X / / 


1 7304 4 

X t w B W T 


002747 




MOVB 


MX| CHK*1 


A At) 
a 1 ▼ 


10 10 -> / 3 o 


1 05 9A 7 


002743 






INCB 


CHK^l 


a*? pi 


01 01 5 7 4 9 
if 10 -* / ^ ft 


1 A0A 7 


002716 






RORB 


CHK 


0? X 


10)0:3 / ^0 


00A0A7 

c v io w ' 


002712 






RQR 


CHK 


0?6 


01 01 5 7 01 9 
v]0-' I 9ft 


00A0 A7 


009796 

Cut ' <« 






ROR 


CHK 


OP J 


0lfll , 57RA 


00ACIA7 

IC 10 / 


0097 99 






ROR 


CHK 


Of/ 

op* 


01 01 R 7 A 9 


0! 4 9 7 A 7 


1 7A374 


002714 

It! V *- ' X ~ 




B I C 


#176374 , CHK 


05P 


10 10 9 / 7 10 


1 9 A 7 A 7 

1 C f / 


01 9 7 if 


002707 




CHPB 


CHK, CHK*1 


856 


fflm R ? 7 £ 
1009 77o 










8EQ 


25 


nil 

05 7 


0! 01 A Of i9t 01 
v 10 10 10 10 


01 01 01 0! 01 4 
if! 10 »J tf 10 *• 


01124 2 

10 X X 6 * * 






TYPE 


1 RK , Ml 


ore 
090 


0! 01 A 01 fll A. 
V 10 O |0 ^ 


0f 01 01 01 4 
<3 10 B JO B *» 


011 1 A5 

10 X X X v •* 






TYPE 


,M15 


DEO 


01 01 A /X 4 01 

>o i0 o !0 1 10 


01 A705 


1 797*4 

X ' ft r O ~ 






MOV 


MX 1 TT Y 


o lo 


01 01 A Ot «t 4 
!0l3Oio J,** 


0047 A7 


004012 

t! V W O ft 






JSR 


PCiPRJNTS 


003, 


01 01 A CD 9 01 
>0 30 O 10 c 10 


0004 

w !0 10 w f ~ 


011051 
|C> X X V 7 X 






TYPE 


,MB 


fl A 9 


00AG194 
f 10 " 10 ft "r 


1 1 A705 
x x / » ^ 


002655 

U W d V V r 






MOVB 


CHK+1 , TTY 


8 A3 

www 


006030 

u V *« g v 


004767 


004016 






JSR 


7, PRINTS 


864 


006034 


000004 


011063 






TYPE 


, M9 


865 


006040 


116705 


002640 






MOVB 


CHK, TTY 


866 


006044 


304767 


004002 






JSR 


7 , PR I NTS 


867 


006050 


104434 








STOP 




868 


006052 


000002 






2S| 


RTI 





PACT 50 



CLEAR EPRSR PL AG 
A* ! Y ERRORS'? 
3RAMCH IF NO ERRORS 
SET ERROR FLAG 
INHIBIT ERROR TYPEOUT 
INHIBIT TYPEOUTS 
SET T^y FOR TYPING 
TYPF DEVICE MESSAGE 
TYPF CS 

TVPE RKCS IN OCTAL 
TYPE ER 

TYPE 9RKER IN OCTAL 
TYPE LEADING HERO'S 

HAL T on error 

LOAD A CLEAR 
WAIT rQR 
DONE 
RETURN 

INHIBIT ERROR TYPEOUT 
YES! 

GET E A BITS 
GET MX 3JTS 

INCREMENT INTO EA BITS 
MOVE OVER BY 1 
MOVE I T 
INTO 

POSITION 
CLEAR JUNK 

MAKE SURE EA BITS INCREMENT 

RETURN IF EQUAL 

TYPE DEVICE MESSAGE 

TVPE "BANK" 

T?PE MX IN OCTAL 

AND SUPRESS LEADING ZERO * S 

TRUE 

GET BYTE 

type true ea sits 
received 

GET BYTE 

TYPF RECEIVED EA BITS 

WAIT 

RETURN 



MAINCJEC-11-D2QMA-A MEMORY EXERCISER MACYll',614 8.APR.72 38 1 55 
D23MAA',Pil TC11 DtA HANDLER 



869 


306054 


104414 






870 


006056 


104426 






871 


006060 


012777 


0030?1 


173040 


872 


006066 


104400 






873 


006070 


104422 


000010 




874 


006074 


012777 


006122 


172726 


875 


006102 


016777 


173106 


173022 


876 


006li0 


104440 






877 


006112 


001134 


000115 


001126 


878 


006120 


000002 






879 










880 


006122 


104414 






881 


006124 


104402 






682 


006126 


104422 


000010 




883 


006132 


012777 


006054 


172670 


884 


006140 


016777 


173050 


172764 


88? 


006146 


104440 






886 


006150 


001134 


000105 


001126 


887 


006156 


000002 






888 











CHK.TC 
CKDATA 

MOV #i,?tccs 

CORE 

SEARCH ,10 

MOV #R,TC|»TCTRAP 

MOV WRDCNT|»TCWC 

START 

TCCA,100!15,TCCS 

RT I 

CHK.TC 

CQMCOR 

SEARCH ,10 

MOV #W,TC,»TCT*AP 

MOV WRDCNTiPTCWC 

START 

TCCAil001 5,TCCS 
RT I 



AGE 21 



j CHECK FOR ERRORS 
ICME^K c n RE 

jS t Co all transports 

j L 3 A J? WC^ST CASE NOISE 
j SEARCH FOR BLOCK 10 
I'TPAP ADDRESS 
j W3RD COUNT 

ILOA? CURRENT ADDRESS i JE!1? AND CO 



ICWECK FOR ERROR 
f'COMPLf MENT CORE 
I'SEARCW FOR BLOCK 10 
ITRAP ADDRESS 
j'WOR? COUNT 

j L © A D CURRENT ADDRESS * JE!5 AND GO 



MMNnEOU- Q2QHA-A MEMORY EXERCISER MACYU',6i4 8.APR.72 081 55 

DiQMAA'.Pll ERROR ROUTINE TOR TCH 



389 


006160 


205067 


032522 




CH'.TCI 


CLR 


EX 


890 


006164 


?05777 


172736 






TST 


flTCCS 


891 


006170 


100034 








BPL 


IS 


892 


006172 


?052*7 


002510 






INC 


EX 


893 


006176 


032737 


320000 


177570 




R I T 


#SW13,*#SWR 


894 


006204 


001026 








SNE 


1$ 


895 


006206 


017705 


172714 






MOV 


PTCCS i TTY 


896 


006212 


012777 


000001 


172706 




MOV 


#li»TCCS 


897 


006P20 

4-1 W W C Cm V 


105777 


172702 






TSTB 


G&TCCS 


898 


006224 


100375 








BPL 


% m 4 


899 


006226 


000004 

*» mr V mr V i 


011310 






TYPE 


iTC.Mi 


900 


006232 


000004 


011010 






TYPE 


,M3 


90* 1 


0fl6?36 

Jw w C w W 


004767 


003600 






JSR 


PC,PRINTR 


902 


006242 


000004 


311020 






TYPE 


,M4 


903 


006246 


017705 


172656 






MOV 


<sTCER,TTY 


904 


006252 


004767 


003564 






JSR 


PCiPRINTR 


905 


006256 


104434 








STOP 




906 


006260 


000002 








RTI 




907 


006262 


032737 


020000 


177570 


IS 1 


BIT 


#SW13,9#SWR 


908 


006270 


001054 








BNE 


2$ 


909 


006272 


H7767 


172630 


002404 




MOVB 


(!»TCCS,CHK 


910 


006300 


116767 


172474 


002377 




MOVB 


MXiCHK*l 


911 


006306 


105267 


002373 






INCB 


CHK*1 


912 


006312 


106067 


002366 






RORB 


CHK 


913 


006316 

w w v W 4 w 


006067 


002362 






ROR 


CHK 


914 


006322 


006067 


002356 






ROR 


CHK 


915 


006326 


006067 


002352 






ROR 


CHK 


916 


006332 


042767 


176374 


002344 




BJC 


#176374, CHK 


917 


006340 


124767 


002340 


002337 




CMPB 


CHK,CHK+l 


918 

* A O 


006346 


001425 








BEQ 


21 


919 


006350 


000004 


011310 






TYPE 


,TC,H1 


920 


006354 


000004 


011165 






TYPE 


iM15 


9?1 


036360 


016705 


172414 






MOV 


MX, TTY 


922 


006364 


?04767 


003462 






JSR 


PC, PRJNTS 


923 


006370 


000004 


011051 






TYPE 


,M6 


924 


006374 


H6705 


002305 






MQVB 


CHK+1,TTY 


925 


006400 


004767 


003446 






JSR 


7, PRINTS 


926 


006404 


?00004 


011063 






TYPE 


,M9 


927 


006410 


116705 


002270 






MOVB 


CHK , TTY 


928 


006414 


004767 


003432 






JSR 


7, PRINTS 


929 


006420 


104434 








STOP 




930 


006422 


000002 






2$ 1 


RTI 





PACT 52 



CLEAR ERR3R FLAG 

AMY ERRORS? 

B^AVCH IF MO ERRORS 

SET ERROR FLAG 

INHIBIT ERROR TYPEOUT 

INHIBIT TVPEOUTS 

SET TTY FOR TYPING 

LOA? A CLEAR 

WAIT r R 

DONE 

TYPE DEVICE MESSAGE 
TYPE CS 

TYPE TCCS IN OCTAL 
TYPE £R 

TYPE *TCER IN OCTAL 
TYPE LEADING HERO'S 
HAL T ON ERROR 
RETURN 

INHIBIT ERROR TYPEQUT 
YES! 

GET EA BITS 
GET MX BITS 

INCREMENT INTO EA BITS 
MOVE OVER BY 1 
MOVE IT 
INTO 

POSITION 
CLEAR JUNK 

MAKE SjRE EA BITS INCREMENT 
RETURN If EQUAL 

type device message 

TYPE "BANK" 

TYPE MX IN OCTAL 

AND SUPPESS LEADING HERO * S 

TRUE 

GET BYTE 

TYPE TRUE EA BITS 

RECEIVED 

GET BVTE 

TVPE RECEIVED EA BITS 
WAIT 

RETURN 



MAlNDEC 


•11-Q1QM* 


t-A MEMORY EXERCISER 


DHQMAA'.Pil 


ERROR ROUTINE FOR TCll 


Q t 4 

931 


1 1 A A 9 A 

u' J O *♦ i •» 


<?.*. 7 A A 7 

< : 1 / f 


51 CI P (7! 6>i CI 


0103330 


Q 1 9 

roc 




flit T71 A 


''I C P! J? ? 

«J il* fcr ¥° 6 




O T 1 




10 2 / / 


PI P! P! 1 9 PI 
10 H> U V £ V 




O t A 

93 4 


f £ ^ * ^ 


1 (3! 01 ffl A d 
1 |0 <0 |0 «r 






935 


006 4 44 


00546 7 


000312 




936 


1 ft A * K 01 

026453 


ft -> 

"127 ' / 


n n a s J" n 
510 




937 


000456 


(7. 4 A 7 A 7 

01676 7 


f% 01 O! ^ fll 01 
t> 10 10 


01 PI 0)974 
w 10 e c / •» 


938 


006464 


01 A 7 A 7 

6 2 7 6 7 


fll ffl 01 fll fll 9 
0C 


01 01 01 9 A A 
1> e 9 


a v n 

939 


006472 


nt 4 ^ a a 7 
01Z66 7 


fll 01 01 3 7 01 




940 


005470 


/% n m 1 9 a 






941 


006500 


012777 


fll 01 01 4 fit 
010 


4 7 9 4 9 PI 


942 


006506 


flmnnflo 

000002 






943 






4 75419 






0! fll A R 4 fll 


^0m777 




QIC 

V4P 


0! a A K i \ A 


4 01 (91 d 01 R 
100005 






946 


006516 


0057 7 7 


4 7 9 A* A 

172400 




947 


006522 


100401 






V48 


01 41 A R 9 A 

5 z 4 


4 CH A At A 

1044 00 






4 

V * V 


01 A A R 9 A 


01 fk f% A tk K 

B W IP 7 t 1 3 






950 










A ■ 4 

951 


006530 


fll 9 A 7 7 7 

026777 


01010190 A 


4 79401 PI 


nil 

952 


01 fll A R 1 A 


n aft a 01 4 
00Z40J 






OKI 

953 


000340 


fll fll fll 7 K 7 






954 










act 
▼ 95 


0! fll A R A 9 
«3 |C P • £ 


0M 9 7 7 7 


01 01 A R A 01 
k? 10 O •? If 


4 799A0 


OCA 
V30 


01 m A K ■ 01 

10 O 5 5 10 


9M O 7 7 7 


01 01 4 1 (51 "X 
w *» A u 




ft K ^ 

957 


K0O556 


fll fll fll fll fll 9 
00000C 






O K O 

958 










95 V 


00©PB0 


005 7 7 / 


4 793A9 




o & a 

V60 




i 01 01 01 01 R 






961 


006566 


005777 


172336 




962 


006572 


100401 






963 


006574 


104432 






964 


006576 


000740 






965 










966 


0066170 


026777 


000156 


172330 


967 


006606 


001360 






968 


006610 


000177 


000152 





MACYll',614 8-ARR.72 08 1 55 PAGE ?3 



S, TCI 




9 ( 6 ) , TC , T A 






ADD 


* 2 1 ( 6 ) 






TST 


T C 1 T A 


jFcWAR™ OR KtvtHst. 




BPU 


FQWSER 


lUEAVE 1 T IN REVERSE 




MEG 


T C t T A 


j GET PLUS BLOCK M U M B E R 




MQV 


#SRlil»TCTRAP 


lTRA D ADDRESS 




MQV 


TC|TA| WANT 






ADD 


UZ, WAN! 


iZ PAST BLOCK 




MOV 


<6)+iRETURN 


j'SAVE RETURN ADDRESS 




T§T 


(6> + 




RET I I 


MOV 


#103 ( jiTCCS 


I'SEARCH FOWARD 




RT! 






SRi J 


TST 


• TCCS 


ICHECK FOR ERROR 






SR1A 


1 NO ERRORS 




TST 


f>TCER 


ICHECK FOR END OF TAPE 




BM I 


, +4 






TRR3 








9R 


SF1 




SR1AI 


CM? 


WANT 1 f TCDB 


j ON RL0CK1 




BUT 


SF1 


1 GO FOWARD 




B R 


RET J 


ICONTJNUE AS YOU WERE 


SFU 


MOV 


U S F 2 1 » T C T R A P 


j'TRAP ADDRESS 


RE tR 1 


MQV 


#4103| *TCC3 


j'SEA&CH REVERSE 




RT I 






SF2I 


TST 


iTCCS 


1 E^RORT 




m Q 1 

BPL 


Sr 1A 


> NO tnR0"3 




TST 


fl^TCER 


1 END OF TAPE? 




BM J 


,*4 






ERR2 




I NO 




8R 


RET I 


I'SWITCW DIRECTIONS 


SFlAI 


CMP 


TC 1 TA | PTCDB 


j'RlGHT BLOCK? 




BNE 


RETR 


INO 




J MP 


(^RETURN 





HA|NOEC-H-OHQ M A-A MEMORY EXERCISER MAcYll',614 S.APR. 72 38155 P AGP ?4 
02QMAA.PH ERROR ROUTINE FOR TCU 



969 
970 
97i 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 

987 
78* 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 



006614 
006622 
006670 
006636 
006642 
006644 
006652 

006654 
006660 
006662 
006666 
006670 
006672 

306674 
206702 
Z06704 

-J.0.6706 
006714 
006722 

S506724 
006730 
006732 
006736 
006740 
006742 

5506744 
006752 
006754 

006760 
006762 
006764 
006766 



012777 


306654 


172206 


FOWSERl 


MOV 


#SCl,?TCTRAP 


l'T»AP ADDRESS 


216767 


?00134 


000130 




MQV 


T C 1 T A | W A \' T 




162767 


000002 


000122 




sue 


M2, WANJ 


12 PAST BwSCX 


212667 


000124 






MQV 


(OJ+ihtTUHN 




?05726 








TST 


(6)* 


jSF.ARCW REVERSE 


012777 


004103 


172254 


RET 11 1 


mOV 


#410-3, *TCCS 


000002 








RT! 






005777 


172246 




sen 


TST 


dtTCCS 


I CHECK FOR ERROR 


100005 








BPL 


SCIA 


>'NC fRRQRS 


005777 


172242 






9 c w 

TST 


m W f Q 


■'piuri"!/ rrtQ r M Pi ftc 1 1 ar 
J CWtCK VvH Li^U wr TA^t 


100401 








BH! 


,*4 




104436 








ERR3 






000405 








BR 


SCFl 




026777 


000060 


172234 


SCiA 1 


CMP 


WANITifTCDB 


l"ON «?LOCK? 


003001 








PGT 


SCFl 


j GO REVERSE 


000757 








BR 


RET J 1 


/CONTINUE AS YOU WERE 


012777 


006724 


172114 


SCFl 1 


HQ V 


#SCF2,STCT*AP 


iTRAP ADDRESS 


012777 


000103 


172204 


REtRi 1 


MQV 


#103i»TCCS 


I'SEAPCH FQWARD 


000002 








RT I 






005777 


172176 




SCF2I 


TST 


fTCCS 


j'ERROR? 


100005 






BPL 


SCFlA 


I NO ERRORS 


005777 


172172 






TST 


9 TCER 


jEND 0" T APt7 


100401 








SMJ 


i+4 




104432 








ERR2 




1 NO 


000740 








BR 


RET J 1 


iSWJTCH DIRECTIONS 


026777 


000012 


172164 


SCF1AI 


CMP 


TC',TA,»TCDB 


j'RfGMT BLOCK? 


001360 








PNE 


RETRI 


I'NO 


000177 


000006 






JMP 


^RETURN 




000000 






WANT 1 









000000 






TC'.TAI 


PI 






000000 






TC', WCI 









000000 






RETURNI 


?! 







MAiNDEC-U"3 ? a MA -A MEMORY EXERCISER 
PU TMil MAGTAPE HANDLER 



13?7 
10?8 

1010 
1011 
1212 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1023 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 



026770 
006772 
6 7 7 4 
206776 
007000 
007036 

007014 
007020 
007022 
007030 

007032 
007040 
007044 
007046 
007054 



007062 
007064 
007066 
007070 

007076 
007104 
007110 
007112 
007120 



104416 
104426 
104400 
104424 
012777 
016777 
006377 
104440 
001146 
000002 

012777 
012667 
005726 
012777 
000002 



104416 
104402 
104424 
012777 
016777 
006377 
104440 
001146 
000002 



007062 172032 

172202 172130 
172124 

060105 301140 



007056 172000 
000056 

060117 172064 



007056 000177 000040 



006770 171742 

172112 172040 
172034 

060103 001140 



MAcYlli6l4 8.-APR.72 08 1 59 



W, f M I eWK.TM 

CKDATA 
TRP,TM| CORE 

REWIND 

MQV 

START 

TMCA,J.00!60005iTMCS 
RTJ 



RW'.TMI 



X *, t M I 
R ! , tM I 



*R. TM,*T*TRAP 
WROCNTi >TMBC 
HTMBC 



MOV 
MOV 
TST 
MQV 
RTJ 

JMP 



#X , TM | ® TM TRAP 
(6)* i TMRET 
<6> + 

*60117,»TMCS 
•TMRET 



CHK.TM 
COMCOR 
REWIND 
MOV 
MQV 
ASl 
START 
TMCAil00|60003iTMCS 
RT I 



#.WVTM|»TMTRAP 
WRDC^Ti jiTMBC 
•TMflC 



007122 000000 



TMRET I 
.PAGE 



i agt is 



iC^ETK FTR ERROR 
I 5TT U p CORE 
jT R AP ADDRESS 

jgvT?: count 

1 M A K r RYTE COUNT 

I'LOAH CURRENT ADDRESS * !E!6(*075 AND GC 



(TRAP ADDRESS 
jSAVT ADDRESS 
IRTSTORE STACK 
I'RFWIN? 



I AK'Y ERRORS? 

j C ? M p L 1 M E N 7 CORE 

jTPAP ADDRESS 

iBVTE COUNT 

I M i K F RYTE COUNT 

I L A H CURRENT ADDRESS * JEI60003 AND GO 



MAJNDEOII-DSQ^A.A MEMORY EXERCISER MACYll',614 8-APR.72 08 1 53 
QlQMAA'.Pll ERROR ROUTINE FOR TM1X 



1038 


007124 


?05067 


001556 




CH'.TMl 


CLR 


EX 


1039 


007130 


005777 


172004 






TST 


aTMCS 


1040 


007^34 


100026 








BPL 


IS 


1041 


007136 


005267 


001544 






|NC 


EX 


^042 


007142 


032737 


020000 


177570 




BIT 


#SWl3,»#SWR 


1243 


7 1 3 


001020 








9NE 


1$ 


1044 

\ V ^ ~ 


007^52 


017705 


171762 






MOV 


•TMCS | TTY 




007156 


000004 


011331 






TYPE 


iTM.Ml 




0071 42 


000004 


011010 

%J m 4g V J* 






TYPE 


,M3 


1047 


007166 


004767 


002650 






JSR 


PCiPRINTR 


a if ^ » 


007172 


000004 


011020 






TYPE 


,M4 


1049 


007 1 76 


017705 


171740 






MQV 


SiTMER,TTY 


1050 

4 IC/ ^ w 


007282 


004767 


002634 






JSR 


PCiPR JNTR 


1 051 


007206 


104434 








STOP 




\ if ^ 


007210 


000002 






is i 


RT I 


#SW13,?#SWR 


.1053 


007212 


032737 


020000 


177570 


BIT 


1054 

4, K/ «T 


007220 


001054 








8NE 


2S 


1 055 


007222 


117767 


171712 


001454 




mOVS 


JiTMCS, CHK 


1056 


007230 


116767 


171544 


001447 




mQVB 


MX|CWK+1 


1 057 


007236 


105267 

J. w -* «« t-' r 


001443 






INCB 


CHK + 1 


4 0l5fi 
J, V -* o 


00794? 




001436 

•y v ~ w v 






R0RB 


CHK 


1 059 


007246 


006067 


001432 






RQR 


CHK 


1 060 


007252 


006067 


001426 






RQR 


CHK 


1061 


007256 


006067 


001422 






ROR 


CHK 


1 062 

4, f " A 


007262 


042767 


176374 


001414 




9 j C 


#176374,CHK 


1063 


007270 


126767 


001410 


001407 




CMPB 


CHK,CHK+1 


1064 


007276 


001425 








5E0 


2$ 


1 065 

A so ° 


0073?0 


000004 


011331 






TYPE 


iTM.Ml 


1 066 

1 io o o 


0073514 


000004 


011165 






TYPE 


iM15 


1067 


007310 


016705 


171464 






MOV 


MX, TTY 


1068 

1 ti o V 


007314 


004767 


002532 






JSR 


PCiPRJNTS 


1 0IA9 

4 v O » 


x> %f ' v *• 


000004 


011051 






TYPE 


,M8 


15170 
1, 10 » w 


v ' w c ~ 


116705 


001353 






MOVB 


CHK*1,TTY 


1 071 


007330 


004767 


002516 






JSR 


7, PRINTS 


1072 


007334 


000004 


011063 






TYPE 


|H9 


1073 


007340 


116705 


001340 






MOVB 


CHK , TTY 


1074 


007344 


004767 


002502 






JSR 


7, PRINTS 


1075 


007350 


104434 








STOP 




1076 


007352 


000002 






2Si 


RT I 





PAGE 26 



CLE'R ERROR FLAG 

AW E"R0RS? 

BRANCH IP NO ERRORS 

set errhr flag 
inhibit err3r typeqjt 
inhibit typeouts 
set tty for typing 
type Device message 
type cs 

TYPE T M CS IN OCTAL 
T vpr er 

TYPE » T M E R IN OCTAL 
TYPE LEADING HERO'S 
HALT ON ERROR 
RETURN 

INHIBIT ERROR TYPEQUT 
YES! 

GET E A BITS 
GET MX BJTS 

INC D EMENT INTO EA BITS 
MOVE OVER BY 1 
MOVE IT 
INTO 

POSITION 
CL'EAR JUNK 

MAKE SURE EA 3 ITS INCREMENT 

RETURN IP EOUAL 

TYPE DEVICE MESSAGE 

TYPE "BANK" 

TYPE MX IN OCTAL 

AND SQPRESS LEADING ZERQi'S 

TRUE 

GET BYTE 

TYPE TRUE EA BITS 

RECEIVED 

GET BYTE 

TYPE RECEIVED E A BITS 

WAIT 

RETURN 
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DiQMAA'.PU 


DMil 


ISYNCRONOUS MODEM 








1277 










IDM11 PRIMING 


ROUTINE , THIS ROUT J N£ SETS UP THE CM 11 


1078 
1079 
1080 










JA 400(8) BINARY COUNT PATTERN 


nil All ? A 1 ! Ni f ' 


007354 








TRP'.OMI NEXT 






1081 


007356 


016705 


171416 




MOV 


M X i T T Y 


if.rT M ¥ 


1082 


007362 


006005 






RQR 


TTY 


j # 1 5 W #13', ,TTY« 


1083 


007364 


006005 






RQR 


TTY 




1084 


007366 


006005 






RQR 


TTY 




1085 


0073?0 


006005 






RQR 


TTY 


• ri'FiR HIMIrf 
1 U U C- A n JUINN 


1086 


007372 


04$705 


017777 




gjc 


#17777, m 


1087 


007376 


010567 


000410 




MOV 


TTY i DMCA? 




1088 


007402 


P16767 


000404 


000404 


isi mov 


omcat,dmwct 


I'crT I IP UflBD ("ft LI NT 


1089 


007410 


062767 


000040 


000376 


ADD 


#32, iDMWCT 


i SET BASE ADDRESS 


1090 


007416 


016767 


000372 


000372 


MOV 


OMWCT,DMBAT 


1091 


007424 


062767 


000040 


000364 


ADD 


#32, iDMBAT 


,"Of T up TlJMRI F TABl'F 


1092 


007432 


016767 


000360 


000360 


MOV 


DMBAT, TUMTAB 


1093 


007440 


062767 


000100 


000352 


ADD 


#64, ,tOmTAB 


|SET UP BINARY COUNT 


1094 


007446 


016767 


000346 


000346 


MOV 


TUMTABiiBINCNT 


1095 


007454 


06276 7 


000200 


000340 


ADD 


#128, iBIMCNT 




1096 


007462 


010246 






MOV 


R2#-(6J 




1097 


007464 


010146 






MOV 


R1#-<6J 


ION THE STACK 


1098 


007466 


n 4 a % m o 


171516 




MOV 


L0LIM,R2 




1099 


007472 


012701 


000020 




MOV 


#16,,R1 
BINCNT,<2)* 


j'LOA? CURRENT ADDRESS 


1100 


007476 


016722 


000320 




DMPRIAl MOV 


1101 


007502 


#05301 






DEC 


Rl 




1102 


007504 








BNE 


DMPRIA 




1103 


007506 


012701 


000020 




MOV 


#16,, Rl 


i'LBAQ WORD COUNT TABL 


1104 


007512 


012722 


177400 




DMPRIBl MOV 


#•400, (2)* 


1105 


007516 


rtl rtl ■ ^ rtl 4 






DEC 


Rl 




1106 


007520 


001374 






BNE 


DMPRIB 


j'BOMP TO TUMTAB-2 


1107 


007522 




000076 




ADD 


#62, #R2 
{Z) + 


1108 


007526 


005022 






CUR 




1109 


007530 


012701 


000100 




MOV 


#64, ,R1 


I CLEAR TUMBLE TABLE 


1110 


007534 


005022 






DMPRICI CLR 


1111 


007536 


005301 






DEC 


Rl 




1112 


007540 


001375 






mt 


DMPRIC 




1113 


007542 


005001 






CIR 


Rl 
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1114 
1115 
1116 
1117 
1118 
1119 
U20 
il21 
1122 
1123 
i X 2 4 



1126 
1X2% 
iX3B 

4,1 SI 

1133 
113* 

1136 
1137 
1138 
1139 
1140 
1141 
1142 

1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 



007544 
007546 
007550 

0075*2 
00?556 
007562 
007566 
007572 
007600 
007606 
007fel4 
007622 
007630 
007634 
007640 
007644 
007650 
007654 
007660 
007662 
007666 
007672 
007700 
007706 
007710 
007712 
007716 



010000 
010002 
010004 
010006 
01^010 
010012 
010014 
010016 
010020 
!2 



110122 
105201 

001375 
005077 
005077 
005077 
005067 
016777 
016767 
062767 
016767 
062767 
016701 
012721 
012721 
012721 
012711 
016705 
006305 
042705 
010577 
052777 
016777 
012601 
012602 
005037 
000167 



171372 
171370 
171366 
000206 
000214 
171404 
000200 
000162 
003200 
171210 
010024 
000240 
007722 
000240 
171120 

177717 
171256 
010105 
000102 



177776 
172376 



171356 
000174 
000166 
030162 
000154 



171250 
171244 



DMPRIDl MQVB 
JNCB 
8NE 
CU R 
CLR 
Cl R 
CLR 

MQV 
MOV 

ADO 
MOV 

ADD 
MOV 
MQV 
MOV 
MQV 
MOV 
MQV 

&3L 
8JC 
MOV 
818 

MOV 
MOV 
MOV 
CuR 
JMP 



Rli {2>* 

n 

DMPRIO 

•OMACT 
•OMBRK 
OMTDAT 

OMCAT i »QMAOR 
101 I M | DM p TR 
#200iDMPTR 
OMPTR,ENOPTR 
•200i E N D p TP 
DMRVECiRi 
#0MR1NT, (1)* 

#240, (i)* 
#DMTIN*,U>* 
#240, (1) 
MX # T T Y 
TTY 

#177?17 J TTY 

TTY,»OMCS 
#10105i »DMCS 
DMBA I M , >DM ACT 

(6)*#R1 
£6)*,R2 
##177776 
WAIT 



jGENERATE BINARY COUNT 

I THIS Will 3E THE TRANSMITTED 



PATA 



{STAR? TRANSMITTING 



ICLEAR PS 



jDMll TRANSMITTER INTERRUPT SERVICE ROUTINE 



007722 


032777 


060000 


171220 


DMT I NT 1 


BIT 


#60000, 9»DMCS 


007730 


001414 








9EQ 


DMT J NC 


007732 


000004 


011352 






TYPE 


i DM , Ml 


007736 


000004 


011010 






TYPE 


,MS 


007742 


017705 


171202 






MQV 


•OMCS,TTY 


007746 


004767 


002070 






JSR 


PCPRJNTR 


007752 


104434 








STOP 


#60000, frDMCS 


007754 


042777 


060000 


171166 




BIC 


007762 


005777 


171162 




DMT 1 NCI 


TST 


• DMCS 


007766 


100003 








3PI 


11 


007770 


042777 


100000 


171152 




BIC 


#100003, &DMCS 


007776 


000002 






III 


RT I 





I TEST foR ERROR FLAGS 
I'BRANCU IF NO ERROR FLAGS 



j'TVpr toMQS IN OCTAL 
I'TYPr LEADING ZERO'S 

j'CLEAR ERROR FLAGS 
I'TEST FOR READY FLAG 

JCLEAR READY 
JE*I T 



000000 

000000 
000000 
177777 
177400 
000000 
000000 
000000 
000000 
000000 



OMfDAT I 
OMPTRI 
ENDPTRl 
DMBA I M I 
MASKI 
DMCAT I 
DMWCT | 
DM9AT | 
TUMTABl 
BlNCNTi 



9 



177777 

177400 



f 







I'StORAGE LOCATION FOR L A 15 T TRANSMITTED C U A« 
I'DMH SOFTWARE TUMBLE T A?LE P Q I NTER 

lI^I'ULliE TO TRANSMIT ON ALL LINES, 
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DZQMAA'.Pii. 


DM 1 1 

w n i i 


4SYNCR0N0US MODEM 








1168 








JDMH RECEIVER 


INTERRUPT SERVICE 


ROUTINE 


1169 
1170 


010024 


«- X # & ** 




dmrinti 


MOV 


R2 i - ( 6 ) 




1171 


012026 


17 1 A 7 OI 9 


177750 




m n m 

" U V 


DMPTR . R9 




1172 


010032 


1 CI 4 A 4 9 






SETBANK 






117 i 


a 4 ft, n * / 
" X " V * ■* 


OI0I571 9 






TST 


( 2 > 


j'test fqr valid data entry 


1174 


010036 


100446 






BMI 


DMRINC 


jBRAMCW IV VALID DATA ENTRv 


1175 


010040 


000004 


011352 




TYPE 


iDM.Ml 




1176 


010044 


01 01 f5l fll 0! 
KJ 10 10 It) 15 *f 


010050 




TYPE 




• ' a S r I 2 " NO DATA RECEIVED" 


1177 


010074 


1 PI 4 4 T 4 
A W *t O "t 






STOP 






1178 


010076 


0! 01 OI A >5 7 
%j t) 10 *f " f 






8R 


DMR 1 NX 


i G fi TO PXIT 


1179 
1180 


010100 


CI "57 4 9 




DMRINBI 


TST 


• {23 


I CHECK LAST ENTRY 


1181 


010102 


0| 01 1 4 9 1 
»y 10 1 S c A 






BEQ 




• OK f F 


1182 


010104 


5! C! 01 01 51 4 
"9 V W 10 v ™ 


011352 




TYPE 


. DM . Ml 




1183 


010110 


ffl 01 fA fh 0! 4 
10 |0 |0 10 *} 


010114 




TYPE 


# i ' 


i'ASCI? " TABLE OVERFLOW » 


1184 


010136 


01 1 9 A 0! 9 
W 1 «£ 10 (. 






MOV 


f 6 5 + . R2 


iRFSTORr R2 


1185 


010140 


01 9 9 A 9 A 
( c O <• 9 






CMP 




i C L E A R RETURN 


1186 


010142 


Rami 4 7 


177206 




JMP 


TRP , DM 


! 1 fl D E> 

1 b u W 


1187 


010146 


010I C S799 




l$l 


TST 


(2)4- 




1188 


010150 


0101*71 9 






TST 


( 2 ) 


i"VAL!D HAtA ENTRV? 


1189 


010152 


1 10 10 \B J i 






BPL 


OMR I NX 


t'EXIT !F NO MORE ENTRIES 


1190 


010154 


01X971 9 


017000 


OMR INC j 


BIT 






1191 


010160 


01011 011 T 






BNE 


□ MR I ND 


i'3RANCH IF DATA RECEIVED ON HTMER THAN LINE 


1192 


010162 


1 4 A 7 1 9 


177622 




B JCB 


M ASK i 12) 


i'CLEAR NON TRANSMITTED BITS 


1193 


010166 


011 A7 A7 


177606 


173352 


MOV 


HMTDAT a DAT A 




1194 


010174 


1 91 9 A 7 


173346 




CMPB 


> 2 ) , n a T a 


ifftMPARr RfCPtVEH A TRAM^MTTTED DATA 


1195 


010200 








BEQ 


IS 
x * 




1196 


010202 


1 0I44 t A 






ERR3 






1197 


010204 


1 0IS9A7 


177570 


it. 
1* l 


t M("Q 


DMTDAT 


i'FORM WHAT NEXT RECEIVED CWAR. SHOULD BE 


1198 


010210 


01 O|«!0l 9 9 
10)0 310 ft C 




DMRINOI 


CU« 


(25 + 


i Cl' EAR TUMBLE TABLE FNTRV 


ll'v 




01 9 01 9 A 7 
\C < 10 £ / 


A 7 7 1? A A 

1 1 1 9 




CMP 


Q9 , FNDPTR 


•' » « PnTwTFR AT THE END f*)F THE TABLE 


1200 


010216 


001004 






BNE 


IS 




1201 


010220 


016702 


170764 




MOV 


L0LIM.R2 




1202 


010224 


PIA97PI9 


000200 




ADD 


#200 < R2 




1203 


010230 


Oil 0I9A7 
> 1(1(11 r 


177546 


1 % i 


MOV 


R2 < DMPTR 


iRFSTORFPOINTER 


1204 


010234 


0(00)791 






BR 


OMR I NB " 


j LOOK AT NEXT ENTRY 


lelflP 
1206 


010236 


012602 




OMR I NX 1 


MOV 


<6>+,R2 


1 RESTORE R0 


1207 


010240 


005777 


170706 




TST 


9DMACT 




1208 


010244 


01011 PIPIT 
If 10 X v 10 v 






BNE 


8 I CX 




1209 


010246 


022626 






CMP 


( 6 ) + > ( 6 ) + 




1210 


010250 


000167 


177100 




JMP 


trp.dm" 




1211 
1212 


010254 


042777 


000200 


170666 BICXI 


B I C 


#200i»DMCS 


1 CLEAR DONE FLAG 


1213 


010262 


F00002 






R T I 
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1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 



010264 
010266 
010270 
010274 
01^276 
010302 
010310 
010314 
010316 
010320 
010324 
010330 
010332 
010334 
010340 
010344 
010350 
010352 
010394 
010360 
010364 
010372 
010376 
010402 
010406 
010412 
010416 
010420 
010426 
010434 
010442 
010444 
010452 



1044 42 






err no i 

Sli , U n I 


3 fc 1 a * i> ^ 






104420 












.illy rooflSt 
1 A ^ T L ^ " " J 


0057*7 


000412 






«f C T 

"3 1 


E X 


001026 








a to C" 
o "N t 


TOP TP 


i v r s 


016732 


170706 






"v v 


1 ft 1 TV H9 

L<jl I m t n t 


■ cry a * R r S S 


012767 


n ft fw m 4 
000001 


173236 




y ft U 
m y v 


#1 . n A T A 




026712 


173232 




NX , DR 1 




p» a T A / 9 \ 
□ A T A | f, £ / 




001401 








a r n 




J 3 » i~ r. # 


104436 












l" Ml* 


062702 


/t f% n ni en o 

000002 






ft U w 


* ft f r\ 


• f Mr a^hrtss 


026712 


l732i6 






flip 


□ A 1 A | I t } 


1 3l W Jil- H y n y w i 


001401 








or n 






104436 








t "~ >5 






062702 


000002 






inn 




i 1 1(9 f T 

j I l 


005267 


173202 






I NC 


□ • l A 


t re T wrvT ^ a Y a 


026702 


170642 






Cnr 


U T 1 1M So 


C K\ f> ^ 


001357 








BNE 


NX | U" 


• K! fl 'i 

1 'N" f 


104444 






T RP , DR 1 


iirvr 

NLxy 






005037 


17~776 






f i p 

CL K 


A* 4 7777* 


I w L " r J 


016702 


170624 






"1 u V 


LOU I - t *Z 


lit i a ~ u * t ** a 


012767 


000001 


173154 




My V 


#1# DATA 


, cft n k f k 
] Jt 1 y A 1 * 


016722 


173150 




NX! , DR I 


unu 
nyV 


0A'A| { « J * 


,CfT 1 IP fi a T A 
1 9t 1 U K J A 1 A 


005167 


173144 






a n N 

CQH 


DA 'A 


1 » Mt XT u A ' A 


016722 


173140 






u n \/ 
HQ V 


OA T A i I <: ) + 


I L"* " I T 


005467 


173134 






N£G 


DATA 






1 / 10 3 7 * 






CMP 


HILIM.R2 


1 E M D 1 


001365 








BNE 


NX1.0R 


1 NOT 


012737 


000240 


177776 




MQV 


#240, ##177776 


| LOCK AG A J M 


012777 


010264 


170400 




MOV 


#SET,DR.»DRTRAP 


I SCT VECTOR 


016777 


170554 


170516 




MOV 


WRDCNT i tDRWC 


■SET WORD COUNT 


104440 






START 




I'LOAD CURRENT ADDRESS S IE 1 10001 AND GO 


001162 


010101 


001164 




ORCA,100J10001iORCS 




000002 








RT ! 







i PACE 
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1248 
1249 
125? 
I2n 
1292 
1253 
1294 
1255 

1257 

1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 



01?454 
010460 
01?464 
01?4*6 
010472 
0105*0 
0105^2 
010506 
0155512 
010516 
010522 
010526 
010532 
010536 
010540 
010542 
010550 
010552 
0105*0 
010566 
010572 
010576 
010602 
010606 
010612 
010620 
010626 
010630 
010634 
010640 
01.0644 
010650 
010654 
010660 
010664 
010670 
010674 
010700 
010702 



705067 
205777 
100026 
005267 
032737 
001020 
017705 
000004 
000004 
004767 
000004 
017705 
004767 
104434 
000002 
032737 
001054 
117767 
116767 
105267 
106067 
006067 
006067 
006067 
042767 
126767 
001425 
000004 
000004 
016705 
004767 
000004 
116705 
004767 
000004 
116705 
004767 
104434 
000002 



000226 CH'.DRt 
170503 

300214 

020000 177570 

170436 
011370 
011010 
001320 
011020 
170434 
001304 



020000 177570 1S{ 



170406 
170214 
000113 
0001.06 
000102 
000076 
000072 
176374 
000060 

011370 
011165 
170134 
001202 
011051 
000025 
001166 
011063 
000010 
001132 



000124 
000117 



000064 
000057 



2$| 



TST 

INC 

PIT 

8NE 

MOV 

TYPE 

TYPE 

JSP 

TYPE 

MQV 

JSR 

STOP 

RTJ 

BIT 

8NE 

MOVB 

MOVB 

INCB 

RQRB 

RQR 

RQR 

RQR 

BJC 

CMP8 

BEG 

TYPE 

TYPE 

MOV 

JSR 

TYPE 

MOVB 

JSR 

TYPE 

MOVB 

JSR 

STOP 

RTJ 



EX 

»ORCS 

IS 
EX 

#SW13,?'#SWR 
IS 

<PDRCS,TTY 

,OR,Ml 

,M3 

PC t PR J NTR 
,M4 

0QRER,TTY 

PCiPRINTR 

#SW13,»#SWR 

2$ 

IPQRCS^HK 

MX|CWK*1 

CHK*1 

CHK 

CHK 

CHK 

CHK 

#176374, CHK 

CHK,CHK*1 
2S 

iDR.Mi 
,M15 
MX#TTY 
PCiPRJNTS 
t MS 

CHK+1 | TTY 
7,PRINTS 

CHK.TTY 
7 I PRINT'S 



CLEAR ERROR FLAG 
ANY E p RORS? 
3RA^CM IF N? ERRORS 
SET E p R H R FLAG 
INHIBIT ERROR TYPEOUT 
INHIBIT TYPEOUTS 
SET TTy FOR TYPING 
TYPE DEVICE MESSAGE 
TYPE es 

TYPE ARCS IN OCTAL 
TYPT PR 

TYPE »QRER IN OCTAL 
TYPE LEADING ZERO'S 
HALT ON ERROR 
RETURN 

INHIBIT ERROR TYPEOUT 
YES ; 

GET E A 3 I TS 
GET MX BITS 

I NC C E M ENT INTO E A BITS 
MOVE OVER BY 1 
MOVE IT 
INTO 

POSITION 
CLEAR JUNK 

MAKE StjPE EA BITS INCREMENT 
RETURN JF EOUAL 
TYPE DEVICE MESSAGE 
} TYPE "BANK" 
TYPP MX IN OCTAL 
ANO SUPRESS LEADING ZERO'S 
TRUE 

GET BYTE 

TYPE TRUE EA BITS 

RECEIVED 

GET BYTE 

TYPE RECEIVED EA 3 ITS 
WAIT 

RETURN 
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1287 


?127?4 


r s 






CHK ! 


? 








1288 


212726 


? {* 






EX| 


? 








1289 


212712 


205015 


241522 


230461 


Mil 


, ASCI! 


<15><12>"RC11 


• *PU, 


.aril.RKlliTMii.TuU.Dnia 


1290 


01*716 


251054 


033320 


026061 












1291 


012724 


243122 


030461 


051054 












1292 


010732 


030513 


026061 


046524 












1293 


015*740 


030461 


052054 


030503 












1294 


010746 


026061 


25U04 


030461 












1295 


01P754 


026102 


047440 


020122 












1296 


012762 


046504 


030461 


040440 












1297 


010770 


042116 


040 














1298 


012773 


074 


042522 


052524 




, ASCIZ 


•'<RETURN>" 






1299 


011000 


047122 


000076 














1300 


011004 


005015 


000052 




M2 1 


, ASCI2 


<15><12>»»" 






1301 


011010 


020040 


051503 


036440 


M3l 


» ASC I 2 


" cs = »• 






1302 


011016 


000040 






m4 i 










1303 


011020 


020040 


05U05 


036440 


4 ASCI2 


« £R * " 






1304 


011026 


000040 
















1305 


011030 


005015 


040504 


040524 


M7i 


, ASCIZ 


<15><12>"0ATA 


ERRQ C 


( AT » 


1306 


011036 


242440 


051122 


051117 












1307 


011044 


040440 


020124 


000 












1308 


011051 


040 


052040 


052522 


M8l 


, ASCIZ 


" TRUE ■ " 






1309 


011056 


020105 


020075 


000 












1310 


011063 


040 


051040 


041505 


M9i 


, ASCIZ 


" RECEIVED ■ 


»• 




1311 


011070 


044505 


042526 


020104 












1312 


011076 


020075 


000 














1313 


011101 


114 


053517 


051105 


Mill* 


, ASCIZ 


"LOWER BANK * 


!» 




1314 


011106 


041040 


047101 


020113 












1315 


011114 


020075 


000 














1316 


011117 


125 


050120 


051105 


M12I 


, ASCIZ 


"UPPER BANK ■ 


II 




1317 


011124 


041040 


047101 


020113 












1318 


011132 


020075 


000 








<15><12> 






1319 


011135 


015 


000012 




M13I 


, ASCIZ 






1320 


01U40 


205015 


041012 


047101 


M14AI 


, ASCIZ 


<15><12X12>»! 


BANKS 


• 


1321 


011146 


051513 


030040 


026440 












1322 


011154 


f% f% ft f% A ffl 
■o V %S V 








, ASCIZ 


•• EXIST" 






1323 


011156 


042440 


044530 


052123 


M14I 






1324 


011164 


000 








, ASCIZ 


" BANK " 






1325 


011165 


040 


040502 


045516 


M15I 






1326 


0111*2 


000040 
















1327 
1328 


011174 


005015 


043122 


230461 


RF'.Mll 


, ASCIZ 


<15><12>"RF11 


DISK 


E R R R 1 " 


1329 


011202 


242040 


051511 


020113 












1330 


011210 


251105 


247522 


035122 












1331 


011216 


000 






RC'.Ml I 




<15X12>»RCH 






1332 


011217 


015 


051012 


030503 


, ASCIZ 


DISK 


E B R5R 1 " 


1333 


011224 


020061 


044504 


045523 












1334 


311212 


242440 


051122 


05U17 












1335 


?11240 


200072 










<15><12>"RK11 






1336 


211242 


205015 


245522 


230461 


RK'.Mll 


, ASCIZ 


DISK 


E&R3RI'* 


1337 


211250 


242040 


051511 


220113 












1338 


211256 


251105 


047522 


035122 












1339 


7112*4 


000 










<15><12>"JP11 






1340 


2H2J5 


015 


251012 


032520 


RP'.Ml 1 


, ASCIZ 


DISK 


£OR?R t » 
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IQMAA'.PU 


ERROR ROUTINE F QR ORU 








1341 


211272 


220061 


044504 


045523 








1342 


0113210 


3424*0 


051122 


051117 








1343 


0H306 


300072 










<15><12>"QPCTAPE ERR?Ri" 


1344 


211310 


005015 


042504 


052103 


TC'.Mll 


, ASCIZ 


1345 


011316 


050101 


020105 


051105 








1346 


011324 


fm * mm m» A *y 

047522 


035122 


AAA 

000 






<15><12>"MAGTAPE ERROR \ » 


1347 


011331 


015 


046412 


043501 


TM'.MU 


, ASCIZ 


1348 


011336 


040524 


042520 


042440 








1349 


011344 


051122 


051117 


000072 








1350 


011352 


005015 


046504 


030461 


DM', Ml 1 


, ASCIZ 


<15><12>»0m11 ERRO^l" 


1351 


011360 


042440 


051122 


051117 








1352 


011366 


0000'2 












1353 


011370 


005015 


051104 


030461 


DR'.Mll 


, ASCIZ 


<15><12>"DR11 ERRORI" 


1354 


0H376 


042440 


051122 


051117 








i355 


011404 


000072 










<15><12><12>"KT1I PRROR J" 


1356 


011406 


005015 


045412 


030524 


SEGA t 


, ASCIZ 


1357 


011414 


0200*1 


051105 


047522 








1358 


011422 


035122 


000 










1359 


011425 


015 


051412 


030122 


SEGlt 


, ASCIZ 


<15><12>»SR0 * » 


1360 


011432 


036440 


000040 










1361 


011436 


005015 


051123 


020061 


SE62I 


, ASCIZ 


<15X12>«'SR1 s «» 


1362 


01144 4 


020075 


n n n 
000 








<15><12>»SR2 9 ti 


1363 


011447 


015 


051412 


031122 


SEG3I 


, ASCI 2 


1364 


011454 


036440 


000040 










1365 


011460 


006477 


000012 




QUESl 


.ASCIZ 


"?"<15><12> 


1366 


011464 


053440 


052111 


020110 


WIfHSGl 


, ASCIZ 


" WITH K T H 


1367 


011472 


052113 


030461 


000 








1368 


011477 


040 


044527 


044124 


WItHMXl 


, ASCIZ 


« WITH M^ii" 


1369 


011504 


046440 


030530 


000061 








1370 












« EVEN 
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1371 


011512 


005767 


167270 


LODGET | 


TST 


1372 


011516 


0034552 






BLE 


1373 


PH520 


005077 


167444 




CLR 


1374 


Z11524 


010001 




3$l 


MOV 


1375 


311526 


022701 


2)00006 




CMP 


1376 


211532 


100002 






BPL 


1377 


011534 


312701 


000006 




MOV 


1378 


011540 


006001 






RQR 


1379 


011542 


006001 






RQR 


1380 


011544 


006001 






RQR 


1381 


011546 


006001 






RQR 


1382 


011550 


042701 


017777 




8 J C 


1383 


011554 


012702 


012496 




MOV 


1384 


011560 


060201 






ADD 


1385 


011562 

v JL * J w ft 


010167 


000062 




MOV 


1386 


011566 


012122 




2$ I 


MOV 


1387 

Jt w « f 


011570 


022702 


020000 




CMP 


1388 

* v u V 


011574 


001374 






RNE 


1389 


011576 


000207 






RTS 


1390 








LODRESl 


TST 


1391 


011600 


005767 


167202 


1392 


011604 


003402 






BLE 


1393 


011606 


005077 


167356 


2$i 


CL R 


4 394 


011612 


012702 


012456 


MOV 




011616 


016701 


000026 


ls't 


MOV 


A w ~ v 


011692 


012221 




MOV 


1397 


011624 


022702 


020000 




CMP 


1398 


011650 


001374 






BNE 


1399 


011632 


005767 


167150 




TST 


1400 


011636 


003403 






BLE 


1401 


011640 


012777 


000001 


167322 


MOV 


1402 


011646 


000207 




3$i 


RTS 


1403 













1404 


011650 


000000 




, LODI 



OPTION ' J'WWICH OPTION? 

3$ j Isjf? h£M0R¥ MANAGEMENT 

?SR0 j'TUR w MEMORY MANAGEMENT OFF 

R0,R1 i'GET TWE BANK 

#6,R1 lIS IT > 6? 

1$ 

#6,R1 | IF > 7 MAKE 7 

Ri | GET THE 

Rl j'UPPER 

Rl I'TWRFE 

R 1 J B \ T 5 

#17777, Rl jCL'EAR JUNK 

#ENDP|R2 j GET SAVE ADDRESS 

R2,R1 j'M'AKE OTHER ONE 

Rl, ,LOD i S "A V FJ ADDRESS 

(1)*, (2>+ iMOVE WORD 

*20000iR2 j END? 

2S I NO! 

PC jRETURN 

OPTION j'WHICH OPTION? 

2i |NO MEMORY MANAGEMENT 

9SR0 i TORN MEMORY MANAGEMENT OFF 

#ENDP,R2 j'GET END OF PROGRAM 

,LOD»Rl I'GET SiVE ADDRESS 

<2>*, (1)+ | RESTORE WORD 

#20000»R2 | END? 

1$ I'LOOP 

OPTION l WHICH OPTION? 

3S j NO MEMORY MANAGEMENT 

#1,U»SR0 | TORN MEMORY MANAGEMENT ON 

PC | RETURN 
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OZQMAA'.Pll 


TTY 1/3 


ROUT I NtS 






1405 


011652 


3105*6 




T ft T » 

1 lull 


MOV 


I486 


2116*4 


^1 /Of 5 


00-fiJI50«- 




! ^ Y 


1427 


2116*0 


105715 




4 C f 
1* 1 




14 08 


PU662 


001406 






ts fc w 


1409 


0H664 


112537 


177566 




m n w q 


1410 


0116^0 


105737 


177564 




fCTQ 

1 9 i 8 


1411 


011674 


100375 






a pi 


1412 


011676 


0007 70 






QD 


1413 












1414 


011700 




HI jH (1 M O 


1 


iy v 


1415 


011784 


062766 


000 20* EiOvvP* 




A u u 


1416 


011712 




A f% t% f% M O 

00000c 




r mp 

un" 


1417 


011716 


001006 






BMP 
n ]H E. 


1418 


011720 


062705 


000002 






1419 


011724 


0#Z70P 


m ffl fll fll rti 4 






1420 


011730 


fll 4] AKiA 


fll 01 fll fll /■ o 

v) vvw we. 




MOV 


1421 


011734 


01 4 *% £ fll C 




1( 1 

0*1 


MfiU 
n y v 


1422 


011736 


ffl 151 fl /I 01 *5 






PT T 


1*23 












1424 












1425 


011740 


"10346 




&U5t T I 


"UV 


1426 


011742 


012703 


012436 


4 I 1 

1* 1 


MOW 
"UV 


1427 


011746 


105737 


J *J f K 4 fll 

177560 


Hi 

2* 1 


tCTD 


1428 


011752 


100375 






SSI 


1429 


011754 


113713 


177562 




"vVo 


1430 


011760 


142713 


000200 




o t fa 


1431 


011764 


122713 








1432 


011770 


KAi AMY 

001003 






n iN t 


1433 


011772 


00 -0.004 

fll ft ft 1 ! A'* 

000761 


0*1460 




I.T"t 


1434 


011776 








1455 


012000 


1113*7 


0K0034 


t-t t ■- 
a* J 




1436 


012004 


fll fX fX' tt t* A 

000004 


01Z040 




Tvpr 


1437 


012010 




i3 C •? 10 1 3 




PMPR 


1438 


012014 


0101 i 1 4 4 






BNE 


1439 


012016 




177777 




CLRB 


1440 


012022 


112767 


000012 000010 




MQVB 


1441 


012030 


000004 


012040 




TYPE 


1442 


012034 


012603 






MOV 


1443 


012036 


000002 






RT! 


1444 








,TYPEI 





1445 


012040 


000000 
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TTV„>{6) |SAV^ tTY 

#2( 6 5 # TTY j GET AOQRESS TO 9E TYPED 

(TTY) j'TER^INaTQR? 

2$ j D 9 N F ? 

(TTY)o,»*177566 IU9AH AND TYPE THE CHARACTER 

•#177564 lis THf PRINTER READY 

,•4 |N0T YET 

1$ |GPT THE NEXT CHARACTER 

•2(6), •< 6) jGET. ADDRESS TO 8E TYPED 

#2,4(6) j APD 2 fO THE ADDRESS 

(6)*, 2 (6) J IS IT ,*2? 

3$ 1 NO 

#2, TTY J ADD 2 TO THE ADDRESS 

#l,TTy jfliCK UP TO AN EVEN BYTE 

TTY, 2(6) |" RESTORE ADDRESS 

(6>*iTTY |RESTQR£ TTY 
j'RFTURN 

R3#-(6> iSAVF R3 

#INPUT,R3 l GET ADDRESS 

§#177560 | WAIT FOR 

,-4 j A CHARACTER 

J»#177562, (3) | CP T CHARACTER 

#200,(3) | GET Rio OP JUNK 

#177, (3) J IS IT A RUBOUT 

3$ jSKJP IF NOT 

rOUES | TYPE i n t 

1$ l ZAP THE BUFFER AND LOOP 

(3),, TY|»£ } SET UP FQR TYPING 

,,TYPE iZtHQ !T 

#15, (3)* I CHECK FOR RETURN 

2S I'LODP !F NOT RETURN 

•1(3) I ZAP RETURN ( THE 15) 

#12, .TYPE jTVPE A 12 

# t TYPE 

(*> + ,R3 j RESTORE R3 
jRFTURN 
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1446 


012042 


112767 


300001 


1447 


012350 


?30402 




1448 


012052 


?35067 


300164 


1449 


2512056 


112767 


177772 


1450 


012064 


?10446 




1451 


012066 


-'12704 


012232 


1452 


012072 


105014 




1453 


012074 


000426 




14 54 


012076 


010446 




1455 


012100 


012704 


012232 


1456 


012104 


116714 


166670 


1457 


012110 


006305 




1458 


012112 


00630$ 




1459 


012114 


206305 




1460 


012116 


106214 




1461 


012120 


006005 




1462 


012122 


106214 




1463 


012124 


006005 




1464 


012126 


152724 


000060 


1465 


012132 


012767 


175401 


1466 


012140 


105014 




1467 


012142 


006105 




1468 


012144 


106114 




1469 


012146 


006105 




1470 


012150 


106114 




1471 


012152 


006105 




1472 


012154 


106114 




1473 


012156 


105714 




1474 


012160 


001402 




1475 


012162 


105267 


000054 


1476 


012166 


105767 


000050 


1477 


0121*2 


001402 




1478 


012174 


152724 


000060 


1479 


012200 


105267 


000037 


1480 


0122*4 


001355 




1481 


012206 


022704 


012232 


1482 


012212 


001002 




J.483 


012214 


112724 


000060 


1484 


012220 


105014 




3,485 


012222 


0000-04 


012232 


I486 


012226 


012604 




1487 


012230 


000207 




1488 








1489 


012232 


003004 




1490 


012242 


^00000 





000157 



000102 



PR I NTR | 




*1, ,PR 


I SET 2ER0 PILL SWITCH 




BR 




1 3 K J P 


PRINTS! 


J W R 


, PR 


j'SUPOESS LEADING ZERO'S 




MQVB 


a»6, ,PR+i 


j'SET COUNT 




MQV 


R4,-C6> 


IS* VE R4 




MQV 


* , PRSyr, R4 


1 SETT P9JNTER TO FIRST ASCII CHAR 




CL R B 


(4) 


j'CL'EAR FIRST BYTE 




BR 


,PRF 


IROTATE FIRST BIT 


PR ! NT A I 


MOV 


R4,»(6) 


iSlVF R4 


MQV 


*,PRBIJF|R4 


1 SET UP POINTER TO OUTPUT AREA 




MOVB 


MX, (4) 


|MX CONTAINS UPPER 5 BITS 




ASL 


TTY 


)GET RlD 




ASL 


TTY 


1 OP 3 




ASL 


TTY 


I'JUNK 9 ITS 




ASRB 


(4> 


jGET BIT13 




RQR 


TTY 


J PACK IT 




ASRB 


(4) 


1 GET BIT14 




RQR 


TTY 


j'PACK IT 




S I SB 


Hi 0, t 4 ) + 


I'MAKF. IT ASCII 




MOV 


#175401, ,PR 


1-5, ,1 - 5 BYTES AND FILL 


.PRLI 


CL R B 


(4) 


J CLEAR ,BYTE OF CHARACTER 


ROL 


TTY 


1 ROTATE BJT INTO C 




ROLB 


<4> 


1 PAC« IT 




ROL 


TTY 


1 ROTATE BJT INTO C 




ROLB 


(4) 


JPACK If 


,PRFl 


ROL 


TTY 


I ROTATE BJT INTO C 




ROLB 


(4) 


I'PACK IT 




TSTB 


(4) 


1 I S IT ZERO? 




BEQ 


,*6 


I'SKJP INC 




INCB 


,PR 


J SET FILL SWITCH 




TSTB 


,PR 


j'CHECK FILL SWITCH 




SEQ 


,+6 


I'SKIP BITSET 




BISB 


#'0, (4)4. 


I'HAKE INTO ASCII CHAR 




INCB 


,PR + 1 


j'JNC COUNT 




BNE 


,PRL 


jREPEAT 




CMP 


#,PRBUF|R4 


jEMPTY BUFFER? 




BNE 




iskip If not 




U H V/ □ 




i'i mr <r irQn 

I L D A □ 1 ct"U 




CLRB 


(4) 


j NOLL TERMINATOR 




TYPE 


, ,PRBUF 


ITYPE IT 




MOV 


{6)*,R4 


I RESTORE R4 




RT5 


PC 


J RETURN 


, PRBUFf 


,blkw 


4 


lOOTPUT BUFFER 


,PRl 







ICOUMT ANQ SWITCH 
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1491 
1492 
1493 
1494 
1495 
1496 
1497 
1496 
1499 
1300 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
15,09 
1510 
1511 
1*12 
1513 
1514 
1515 
1516 
1547 
1510 
1519 
1520 
1521 
1522 
1523 
1524 



212244 


312767 


012274 


165552 


POWR f 


MOV 


#RESTOR, ?4 




012252 


210046 








mOV 


R i * £ 6 S 




012254 


010146 








MOV 


R 1 s * 9 ? § 3 




Z12256 


310246 








mO.V 


R2i»s 6* 




212260 


01834t 








■vCV 


R3 t «C6J 




?1?26£ 


*i244g,. 








HQV 


r 4 f « f ' 




01226* 


?10S4£- 








mOV 


R 5 1 » H"6 ? 




012266 


01066/* 


00010? 






HO V 


S P i S A V 6 




012272 


008001 








H«L."f 


#powr* z& 




01227* 


01276? ; 


01224<£ 


163521 


RESTOS'l 


MOV 






iff A 9 1 W (? 


tn ffi 0! a & *i 

K? v it %J c 






MQV 


SAve ? s r 




012386 


01260S 








MOV 






012310 


01260* 








MOV 


( 6J * , R 




012312 


&1260S 








mqv 


< 6 ' • , 1 




012314 


01260S 








hQV 


\t\ - / - 




012316 


012601 








MQV 






012320 


012600 








MQV 


(6' • f -- 




012322 


012706 


300500 






M Q \? 






012326 


000167 


167532 








0* %. } n -i . 

RTf :;> 




012332 


116767 


165224 


000076 


REAOPI 


MQV3 


177562* INPUT 


iR'tA? THE CHARASY* 


012340 


142767 


'700200 


0*530713 




31CB 


#201 » JWPUT 


jCi.'EAR JUNK 


012346 


12276? 


000003 


00006* 




CMPg 


#3 « iNPUT 


as H A *C? 


012354 


00140^ 








B s» G 




jS:-«JP *r »c 


012396 


000006= 








RT* 




» r si f urn :r NOT 


012362 


000004 


012364 






TYPE 


# ( *a 




012370 


000137 


000200 






IMP 


t#200 


1 P. 



012374 
012376 
012416 
012436 
012456 



000000 

000010 

000010 
000010 
000000 
000001 



SAV6I 
PATCH1I i B|»KW 
PATCH2I ,BLKW 

INPUT I 
EN DP i 

« END 



,BtKW 





10 
10 



! PATCH AREA #1 
/PITCH AREA #2 
I INPUT BUTTER 
•LAST j,QC OF PROSRAH 
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ACCEPT 


s 


1P4430 


aqrtab 


002634 








3 I CX 


013254 


CD AT A 




003236 


CHK 


010704 


U ~ | ~ " 




1 ? 4 4 4 


CHK , RK 


s 134412 


r H K T M 


s 


174416 


CM , OR 


010454 


PH' rk 




005610 


C H ', R P 


005212 


CKOAT A 


g 


104426 


CQMCOR 


s 104402 


PRl 

w n Jb 




002376 


CR2 


002432 


C ! RC 




004506 


C , RF 


004124 


n AT A 




003546 


D I SPlA 


s 177570 


OMR A I M 




010 00 6 

V * V f *■* 


0MB AT 


010016 


dmps 




0P1150 


OMPR j A 


037476 


HMPR T D 




007544 


dmptr 


010002 






01 0910 


DMR I NT 


010024 






010000 
iw x >y v K/ 


DMT I MC 


007762 


nM* Mi 




«1 1 t52 

BAi J* 6 


DOCORE 

u w w W ~ fa> 


001576 


nflp A 




00 1 1 A2 


ORGS 


001164 






0101 0I74 


DRWC 


001160 






104452 


ENDP 


012456 


r RR9 
s. ~ ~ 






FRR3 


s 104436 


r u « 3 c n 






goat a 


003312 


Mil I M 




001212 


I NPUf 


012436 


kf f S AR7 




001902 


K JSDR0 


001174 


1 I M I T 




001 004 

O ^ 1 V 


LOOCET 


011512 


MAP 




004016 


MAP I T 


b 104446 






001002 

w u API/*" 


MX 


001000 


H* X 




011101 


M12 


011117 






Oil 1 1 40 
IO * X X ~ w 


M15 


011165 

v ffc A A y ** 


MA 




011 1 0I90 

10 1 A B £ 


M7 


011030 


M 

IN 




\u V )U 10 + ' 


NEXT 

IN W A 1 


9 104444 


M ¥ T P P. 




01019452 


N! X D R 


010310 


P ATPU1 




01 i 9^ 76 


p ATCM2 


012416 


PO WR 




012944 


PR I NT A 


012076 


purs 




0114 60 


RCCA 


001074 


srrp 




0101 0I70 


RCTRaP 


001014 


RF A DR 

n C » L> n 




551 9"*32 


REDO 


002034 


RF T I i 




006644 

1 1 U a ~ T 


RETR 


006550 


rfu f wn 




1 04494 


RFCA 


001062 


crrD 




0l 01 1 9l *5 6 


PFTRlP 


001010 


D it f A 

K fi C M 




01 0H 1 9 9 
io ^ 1 X C e - 


RKPS 

n r\ V «J 


001114 


O Uf D A P 




01 01 1 n 9 4 

10 w i, «3 c ^ 


RKWC 


001120 


Kr CO 




010! 1 1 0)0 
IO * J, 1 10 10 


RPD A 


001106 


DDf Dip 




0101 3I90 


RPWC 


001102 






01 7 C "X 2 


R RC 


004542 


D' Dp 




01751 94 


R . TC 


006122 


1 




X0J0P1001 


R2 


a%00000? 


P5 




1 iu if'' iy *i v * 


S A V6 


012374 


«*pf9 

J V r £ 




0176724 

V V / fc 


SCI 


036654 


SEGA 




011406 


SEGERR 


002710 


SEG2 




011436 


SEG3 


01144.7 


SET.DR 




010264 


SF1 


006542 


SI EE IT 




001566 


SP 


s%0000B6 


SR1A 




006530 


START 


■ 104440 


SW08 


* 




?W09 


* 00100C 



ALIO* 


003334 


?EGPJ 




203434 


a J M C N T 


010^22 






323550 


PHK , QR 


s 104420 




B 


104406 


-HK , RP 


s 1044J3 


r*K , tc 


s 


104414 


*!H , RC 


004600 


ch'.rf 




004216 


CH , TC 


006160 


PH*, T* 
CRl'F 




007124 


CORE 


s 104400 




002346 


CR3 


002466 


PR4 




002514 


C j RK 


005516 


r , RP 




005?70 


DMACT 


001152 


HM ADP 




001156 


OMBRK 


001154 


fiMC AT 




010012 


DMPRIB 


007512 


r^MPRIC 




207534 


v M R I N B 


010100 


»*MRI^C 




010154 


OMRINX 


010236 


^mrvfc 




001044 


OMT I NT 


007722 


OMWCT 




010314 


OQMX 


001632 


50SEG 




001674 


^RDB 


001166 


TRER 




001166 


OR , Ml 


011370 


DUM1 


s 


104450 


ENOPTR 


010004 


PNOTAB 


B 


002706 


ER3 


003632 


FX 




010706 


GOGET 


011740 


GOT 




001216 


KJ5AR0 


001172 


KISA B 6 




001176 


KJS0R6 


001200 


KISDR7 




001204 


LOORES 


011600 


LOLIM 




001210 


MASK 


010010 


MEMORY 




003552 


MXC3 


001206 


M l 




010710 


M13 


011135 


M14 




0U156 


M2 


011004 


M3 




21101? 


M8 


011051 


M9 




011063 


NODE V 


002534 


NXT 




002774 


NX1 , OR 


010372 


OPTION 




001306 


PC 


=^000007 


POTS 




003416 


PRINTR 


012042 


PR ! NTS 




212052 


RCCS 


001066 


PCOA 




001076 


RCWC 


001072 


RC'.Ml 




011217 


RESTOR 


012274 


RET I 




006500 


RETR1 


006714 


RETURN 




006766 


RFCS 


001054 


PFO A 




001364 


PFWC 


001060 


PF", Ml 




011174 


RKOA 


001124 


RKTR 




201116 


RK , Ml 


211242 


RPCA 




001124 


RPOS 


001112 


RPFR 




001110 


RP , Ml 


011265 


RTPF 




202064 


R , RF 


004160 


P', RK 




205552 


R , TM 


007062 


R0 


_ 


5S2Z0000 


R3 


= 14000003 


P4 




%Z00?04 


SCFl 


006706 


SCF1A 




226744 


SC1A 


206674 


SEARCH 


- 


104422 


SEGVEC 


201050 


^EGl 




211425 


SETBAK 


003726 


SETBAN 




104442 


SF1A 


006600 


*?F2 




006'560 


SR0 


001170 


SRI 




006H3 


STOP 


= 104434 


«WR 


S 


177570 


SW10 


s 002000 


^wii 


1 


004!*00 
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SW12 > 010?00 

TCCA 3?li34 

TCTRAP 2^1030 

TC>C 076764 

TMER 001142 

TP'.RP 005334 

TRP.RF 004070 

TRP.TH 006774 

TYPE I T 001746 

T2 0212132 

T4 002172 

T8 002300 

WJTHMX 011477 

WRDCNT 001214 

W'.RP 005030 

I0T 011652 

',PRF 012132 

■ 012460 



SW13 


= 020000 


TCCS 


001126 


TCWC 


001132 


TM9C 


001144 


TMR'ET 


007122 


TRP , DM 


007354 


TRP.RK 


005462 


TTV 


*«000005 


T0 


002044 


T3 


002152 


T5 


002212 


T8X0R1 


003356 


WJTHSG 


011464 


W.RC 


004446 


W.TC 


006054 


• LOO 


011650 


,PRL 


01214? 



SW14 s 04g20Z 

TCOB 001136 

TC.Ml 011313 

TMCA 001146 

TMTRAP 001040 

TRP.DR 010352 

TRP ,RP 005162 

TUMTA8 010020 

Tl 002112 

13*0*9 003400 

T6 002232 

WAIT 002320 

WRADR 003554 

W,RF 004064 

W,TM 006770 

,PR 012242 

,TRP 002602 



TC 006424 

TC^R 001133 

▼C'.TA 006762 

TMCS 001147 

TM'.Ml 011331 

TRP.PC 004452 

TRP.TC 006066 
TYPE s 000004 

T1V0RS 003322 

T3V9 003374 

T7 002260 

WANT 006760 

WRCADR 003612 

W,RK 005456 

y'.TM 007056 

', P R 8 U F 012232 

TYPF 012040 
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